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GENERAL PROGRAfl iNFORriATION 



PROGRiW PURPOSE 

THIS PROGRPn CAN BE USED UITH EITHER A CDll OR C020 CARD READER 
IMTERFACE TO A DOCUMATIOH HIOOO. H200. f11200 OR AN RSISOO jlODEL CARD 
READER. THE HROGRAH TESTS ALL l6GIC F^NCTIOfg OFTHE CARD READER 
AS ULLL AS EXERCISING ALPHANUMERIC AND BINARY CODED DATA VIA 
PUNCHED CARDTEST DECKS. SEPARATE STARTING ADDRESSES ALLOW 
TESTING OF ERROR FUNCTIONS (E.G. - HOPPER CHECK. STACK CHECK, 
ETC.) FOR ALL CARD READER NOOaS UTILIZING NANUAl TECHNIQUES. 
TO AID IN DIAGNOSING SPECIAL PATTERNS A SECTION OF THE PROGRAM 
UILL AaOU TESTING OF CARD DECKS UITH ALL COLUMNS OF EACH CARD 
IDENTICALLY PUNCHED. 

THE DISTINCTION BETWEEN THE CDll AND CD20 CARD READER INTERFACES 
UILL BE DESCRIBED IN SECTION 1.5, PARAGRAPH A. 

THE ALPHANUMERIC AND BINARY TEST DECKS TO BE USED ILL BE 
DESCRIBED IN SECTION 1.2, PARAGRAPH B. 

SYSTEM REQUIREMENTS 

A. HARDWARE REQUIREMENTS 

A PDP-11 FAMILY COMPUTER UITH EITHER A CDll OR CD20 CARD 
READER INTERFACE TO A DOCUMATION MODEL CARD READER (MODELS 
M2D0, MIOOG, M12Q0, RS12Q0). 

***** NOTE ***** 
A MINIMUM OF 12K OF MEMORY IS REQUIRED 
FOR LOADING & RUNNING THIS DIAGNOSTIC! 

1. THE CD20 INTERFACE IS A COll INTERFACE UITH 

ECO lCD-11-00014 INSTALLED. THE CDSO INTERFACE IS 
USED UITH THE DECSYSTEM 20 SERIES OF COMPUTERS. THE 
ECO IMPLEMENTS THE FOLLOWING ADDITIONAL SOFTWARE 
FEATURES INTO THE NORMAL COll CARD READER CONTROLLER: 

A. DUrtING DATA TRANSFERS IN UNPACKED MODE BITS 15 THRU 
12 IN THE DATA REGISTER (17716£.) HAVE BEEN REDEFINED 
TO INDICATE MORE THAN ONE BIT SET IN A ZONE (BIT15) 
AND WHICH ZONE (BITS 14 THRU 12). 

B. DURING NON-DATA TRANSFERS PERIODS THE DATA REGISTER 
(1771b6) IS USED AS A SECOND STATUS REGISTER UITH 
BIT DEFINITIONS AS FOLLOUS: 

BIT DEFINITION 

15 ALUAYS SET IF ECO IS INSTALLED 
14 ALWAYS CLEAR IF ECO NOT INSTALLED 



14 READ CHECK 

13 PICK CHECK 

12 STACK CHECK 



BREAKOUT OF BITIH OF 
STATUS REGISTER 
(1771b0) 



EOl 



B 



SO'"TWARE REQUIREMENTS 



TWO fWIN CARD TEST DECKS ARE REQUIRED BY THIS PROGRAfl: 



SEQ 0004 



ALPHANUnERIC DECK 



BINARY DECK 



riflIND£C-8<3-DlBl-C 



MAir€)EC-8<3-DiB2-C 




1 3 RELATED DOCUMENTS AND STANDARDS 



A. CDU ENGINEERING DRAWINGS 

B. POPli PERIPHERALS HANDBOOK 

C. PDPU PROCESSOR HANDBOOK 

D. NAlNDEC-ll-OZOflC-Bl 

SYSMAC.SML DIAGNOSTIC UTILITIES PACKAGE 

E. f1flINDEC-ll-DZQXA 

•XXDP' USER'S GUIDE 

F. DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS 



l.H DIAGNOSTIC HIERARCHY PREREQUISITES 



NONE. 

1.5 ASSUNPTIONS 



A. IT IS ASSUNED THAT BOTH CARD TEST DECKS ARE IN THEIR PROPER 
SEQUENCE. IT IS A GOOD IDEA UPON RECEIVING THE. TEST DECKS 
TO NUMBER THEM IN THE TOP RIGHT CORNER IN THE EVENT THAT 
THEY ARE ACCIDENTLY DROPPED. 

B. IT IS ASSUMED THAT ECO tCD-l 1-00014 HAS BEEN INSTALLED 



UHEN THIS PROGRAM IS BEING RUN ON A DECSYSTEM 20 SERIES 
COMPUTER. 



PROGRAMMING PRACTICES 

DOC. NO. 175-003-009-00 



OPERATING INSTRUCTIONS 



LOM)!NG AND STARTING PROCEDURES 

THERE ARE FIVE DISTINCT SECTIONS TO THE PROGRAM EACH HAVING 
ITS OMN STARTING ADDRESS. SWITCH SETTINGS, AND MODES OF 
OPERATION . THEY ARE AS ^OLLOUS: 

A. INSTRUCTION & DATA RELIABILITY 

1. LOAD PROGRAM INTO MEMORY. ON A DECSYSTEM 20 SERIES^ 
COMPUTER THIS IS ACCOMPLISHED VIA A 'FLOPPY* DISKETTE 
ON UNIT Q BY - 

1ST- DEPRESSING THE 'FLOPPY' SWITCH (ON FRONT END 
PANEL) TO LOAD 'RXDP' (FLOPPY MONITOR) 

2ND- TYPING 'DZCDB*' (CARRIAGE RETURN) ON CONSOLE 
TTY IN RESPONSE TO THE 'RXDP' MONITOR REQUEST 
FOR INPUT (A DOT.). 

WHERE « = LATEST REV. LETTER OF THE PROGRAM 

2. LOAD A TEST DECK (ALPHANUMERIC OR BINARY) INTO THE 
CARD READER INPUT HOPPER 

3. PRESS 'RESET' BUTTON ON THE CARD READER 

4. SET A STARTING ADDRESS OF 200 INTO SWITCH REGISTER 

5. PRESS 'LOAD ADDRESS' 

b. SET SWITCHES FOR MODE OF OPERATION: 

•ALPHA' DECK (IMAGE MODE) - SET SW<02> 
'ALPHA' DECK (PACK MODE) - SET SW<03> 

'BINARY' DECK (IMAGE MODE) - SET SW<02> & SW<OM> 
'BINARY' DECK (PACK MODE) - SET SW<03> & SW<OH> 

NOTE: WITH ONLY THE ABOVE SWITCHES SET FOR MODE OF OPERATION 
THE PROGRAM WILL PASS THRU THE INSTRUCTION PORTION 
ONLY ONCE (1ST PASS). ON ALL SUBSEQUENT PASSES THE 
PROGRAM WILL LOOP ON THE DATA RELIABILITY PORTION. TO 
ALTER THIS APPROACH SET OTHER SWITCHES AS INDICATED 
UNDER SECTION 2.3. 



GDI 

7. PRESS • START' 

8. WITH ONLY THE SWITCHES SET OS INDICATED UNDER ITEM b. , 
PASS COHPLETION PRINTOUTS SHOULD flPPEfW flS FOLLOUS 
(AN EXRHPLE): 

nAIN0EC-ll-D2CDB REV.B 

ENTERING LOGIC TESTS 
ENTERING DATA TESTS 
END PASS II 

AT THIS POINT THE INPUT HOPPER SHOULD BE EMPTY * 

AND THE PROGRAN UILL HANG UAITING, AT UHICH * 

POINT - * 

A. RELOAD TEST DECK/S INTO INPUT HOPPER, AND « 

B. PRESS 'RESET' ON CARD READER « 
PROGRAM SHOULD RESUME OPERATION UITH, « 

ENTERING DATA TESTS 
END PASS 12 

ETC. 

NOTE: THE FORN OF THE PRINTOUT UILL VARY AS OTHER SUITCHES 
ARE SET. 

B. ERROR FUNCTIONS FOR CARD READER MODELS M200 OR MIOOO 

1. LOAD PROGRAM INTO MEMORY AS INDICATED BY SECTION 2.1, 
PARAGRAPH A., SUBPARAGRAPH 1. 

2. LOAD A FEU SPARE CARDS INTO THE INPUT HOPPER. 

NOTE: DO NOT LOAD A TEST DECK HERE AS PORTIONS OF 
ERROR FUNCTION TESTING DESTROYS CARDS! 

3. PRESS 'RESET' BUTTON ON THE CARD READER 

S. SET A STARTING ADDRESS OF 210 INTO SUITCH REGISTER. 
5. PRESS 'LOAD ADDRESS' 

b. SET DESIRED SUITCHES AS INDICATED BY SECTION 2.3 



SEQ 000& 



HOI 

7. PRESS 'START' 

8. FOLLOW THE INSTRUCTIONS ftS THEY RRc PRINTED OUT 

P FULL PASS OF THIS SECTION SHOULD APPEAR AS FOLLOUS 
(AN EXAMPLE): 

ENTERING ni000/n200 ERROR FUNCTION TESTS 
NAINOCC-ll-OZCDB REV.B 

« INSTRUCTIONS FOLLOW AND UPON A COMPLETE PASS » 
« UILL APPEAR, * 

MAINOEC-ll-OZCDB REV.B 

ETC. 

ERROR FUNCTIONS FOR CARD READER MODEL H1200 OR RS1200 

EVERYTHING APPLIES AS INDICATED UNDER SECTION 2.1, 
PARAGRAPH B., EXCEPT: 

1. START ADDRESS IS 250, AND 

2. LEAD-IN MESSAGE UPON EXECUTION IS "ENTERING MI200 ERROR 
FUNCTION TESTS- 

3. ANSWER THE QUESTION ''M1200 OR RS120G'' BY TYPING 
A Y FOR THE RS1200 OR AN N FOR THE M1200. 

NOTE: SINCE ONLY THE RSi200 HAS THE CAPABILITY 
TO DETECT A MIS-REGISTERED CARD, ONLY THIS 
MODEL SHOULD ENTER THE MISTERED CARD TEST. 

SINGLE SUBTEST LOOP 

1. LOAD PROGRAM INTO MEMORY AS INDICATED BY SECTION 2.1, 
PARAGRAPH A., SUBPARAGRAPH 1. 

2. LOAD A FEW SPARE CARDS INTO THE INPUT HOPPER 

NOTE: SINCE ONLY THE INSTRUCTION PORTION OF THE 
PROGRAM IS MEANT TO BE SELECTED UNDER THIS 
PHASE OF OPERATION A CARD TEST DECK MAY BE 
SUBSTITUTED IN PLACE OF THE SPARE CARDS. 

3. PRESS 'RESET' BUTTON ON THE CARD READER 

4. SET A STARTING ADDRESS OF 220 INTO SWITCH REGISTER 

5. PRESS 'LOAD ADDRESS' 

b. AT THE 1ST 'HALT': 

LOAD THE STARTING ADDRESS OF THE DESIRED TEST (ADDRESS 
OF 'SCOPE' INSTRUCTION AT BEGINNING OF TEST), THEN 
PRESS 'CONTINUE'. 

7. AT THE 2ND 'HALT': 

SET DESIRED SWITCHES AS INDICATED BY SECTION 2.3 



IDl 

(SU<11> MUST NOT BE SET), THEM PRESS 'CONTINUE' 

»M HOWEVER *« (SU<m> MUST BE SET... HUST BE SET . . . ) SEO 0008 

8. PROGRAM MILL LOOP ON TEST SELECTED 



JOl 



£. SINGLE DfiTfl PATTERN TEST 




SEO OOOS 



1. 



LOflQ PROGRflft INTO MEMORY flS I 
PAmCRRPH R., SU8PAiV)GRRPH 1. 



LORD fl 'PREPRRED' DECK INTO THE INPUT HOPPER 




PATTERN MUST BE IDENTICAL IN ALL 80 COLUMNS 
OF EACH AND EVERY CARD MAKING UP THE DECK 
(E.G.. IF COLUMN 1 CONTAINS 1777 SO MUST ALL 
THE OtHER 79 COLUMNS). 



3. PRESS 'RESET' BUTTON ON THE CARD READER 

4. SET A STARTING ADDRESS OF 240 INTO SWITCH REGISTER 

5. PRESS 'LOAD ADDRESS' 
b. PRESS 'START' 



USING SUS<11 THRU 00>, THEN PRESS 'CONTINUE' 

P. AT THE 2ND 'HALT' 

SET DESIRED SWITCHES AS INDICATED BY SECTION 2.3 

g. WHEN THE CARD READER RUNS OUT OF CARDS RELOAD THE 
'PREPARED' DECK AND PRESS 'RESET' BUTTON ON THE CARD 
READER 

10. THE PROGRAM SHOULD CONTINUE 



2.2 SPECIAL ENVIRONMENTS 



THE PROGRAM DOES HAVE THE CAPABILITY TO BE RUN ON THE ACT-11 
MANUFACTURING LINE BUT IS NOT IDEALLY SUITED FOR THIS 
ENVIRONMENT DUE TO THE PROGRAM'S REQUIREMENT OF LOADING CARD 
TEST DECKS. 



7. 




PATTERN SELECTED INTO THE SWITCH REGISTER 



2.3 



PROGRAfI OPTIONS 



fi. OEFflULT PflRftHETERS 

LOCfiTION LABEL CONTENTS 



USE 



COST: 
CDCC: 
COBP: 
CDOB: 
INTVEC: 
INTVEC+2: 



1771b0 
177162 
1771b4 
177 ibb 
230 
232 



STATUS 

COLUMN COUNT 
BUS ADDRESS _ 
DATA/(STATUS ON C020) 
INTERRUPT PC 
INTERRUPT PS 



IF THE C011/CD20 IS EVER CONFIGURED SO THAT THE ABOVE ^ 
STANDARD ADDRESSES AND VECTORS ARE NOT RELEVE.tT THEN JUST 
PATCH THE ABOVE PROGRAM LOCATIONS TO THE CORRECT VALUES 
BEFORE ATTEMPTING TO EXECUTE THE PROGRAM. 

CONTROL SUITCH SETTINGS 

SUITCH USE 



SM<15>=1 
SU<15>rO 

SU<i4>=l 
SU<14>=0 

SU<13>=1 
SU<13>=0 

SU<12)=1 
SU<12>=0 

SU<11>=1 
SW<11>=0 

SU<07>=1 
SU<07>=0 

SM<0&>=1 



SU<0&':0 



HALT ON ERROR 
CONTINUE ON ERROR 

LOOP ON CURRENT TEST 
CONTINUE TO NEXT TEST 

INHIBIT ERROR PRINTOUT 
PRINT ERROR REPORTS 

INHIBIT TRACE TRAPPING 
ALLOU TRACE TRAPPING 

INHIBIT SUB-TEST ITERATIONS 
ALLOU SUB-TEST ITERATIONS 

LOOP ON INSTRUCTION TESTS ONLY 
NOT APPLICABLE 

LOOP ON INSTRUCTION & DATA RELIABILITY 

TEST WHEN CONTINUING FROM ONE CARD 

TEST DECK TO ANOTHER. 

INSTRUCTION & DATA RELIABILITY TEST 

COVERED ON 1ST CARD TEST DECK LOAD, 

ONLY DATA RELIABILITY TEST COVERED 

ON ALL SUBSEQUENT CARD TEST DECK LOADS. 



SEO 0010 



c. 



SU<OS>rl 



SU<05>:0 



SU<04>=1 
SU<04>:0 

SU<02>:1 
SU<02>:0 

STARTING ADDRESSES 

POORESS 



LQl 

UHEN nORE THRN ONE CRRD TEST DECK IS 
LORDED 'HflLT' RT (X>li\£UOIi OF ERCHDECK, 
MOTE: P»§51NG /COffTINUE' WILL RESliC 

PWJGRRH OpSwTION AFTER THE 'HflLT' 
UHEN NORE THRN ONE CARD TEST DECK IS 

INDICATOR FOR BINARY TEST DECK 
NOT BINARY TEST DECK 



PACK NODE 



INDICATOR FOR INAGE NODE 
NOT INAGE NODE 



USE 



200 
210 

220 
240 

250 



INSTRUCTION & DATA RELIABILITY TESTING 

ERROR FUNCTION TESTING OF CARD READER 
NODELS N200 OR NIOOO 

LOOPING ON A SINGLE INSTRUCTION TEST 

READING A SINGLE DATA PATTERN 
CONTINUOUSLY 

ERROR FUNCTION TESTING OF CARD READER 
nODEL N1200 OR RS1200 



EXECUTION TIMES 



(TO BE DETERMINED) 



Ihfiyi INfORflflTION 



ERROR REPORTING PROCEDURES 

THREE TYPES OF ERROR REPORTING TECHNIQUES fiRE USED AS FOLLOWS: 
ft. WHEN INPUT HOPPER GOES ENPTY DURING TESTING 
THE FOLLOWING NESSAGE IS TYPED: 
CARD READER IS OFF-LINE 

REMEDY THE CONDI TiON BY RELOADING INPUT HOPPER 

WITH CARD DECK - P*%SS 'RESET' BUTTON ON CARD READER 

AND 'CONTINUE' SWITCH ON CPU PANEL 

NOTE: Allow a few SECONDS TO TRANSPIRE BETWEEN PRESSING THE 
'RESET' BUTTON AND THE 'CONTINUE' SWITCH AS IF THIS 
OPERATION IS DONE TOO QUICKLY THE CARD READER WILL 
NOT m\fZ HAD A CHANCE TO RESET ITSELF AND THE ABOVE 
REPORT WILL ONLY BE REITERATED 

B. DURING DATA RELIABILITY TESTING 

THE FOLLOWING FORMAT IS TYPED WHEN A DATA ERROR OCCURS: 

DECK CARD NUN CARD COL SHB WAS 

WHERE: 'DECK' REPRESENTS EITHER 'ALPHA' OR 'BINARY' 

•CARD NUN' REPRESENTS WHICH CARD OUT OF THE 80. 
CARDS ON WHICH THE ERROR WAS FOUND. 'CARD NUN* 
VALUE IS PRINTED IN DECIMAL. 

'CARD COL' REPRESENTS THE COLUMN ON THE CARD 
(SPECIFIED BY 'CARD NUM' ) WHICH CONTAINS THE 
ERROR. 'CARD COL' VALUE IS PRINTED IN DECIMPL. 

'SHB' REPRESENTS THE ENCODED VALUE THAT SHOULD 
BE INTERrRLTEO. 

•WAS' REPRESENTS THE VALUE THAT WAS INTERPRETED. 



SEO OQia 



NOl 

C. GEICRM. ERRORS DURING PROGRAM* OPERATION 

SEO 0013 

T>CR£ ARE SEVEN CEfCRflL TYPES OF ERROR REPORTS IN USE 
TfJCoCHOUrnfME PWOJRH ftS FOLLOWS: 

TYPE 1 

(PC) (SP) (CDS) (CDD) (PS) 
TYPE 2 



(PC) (SP) (COS) (COD) (CDC) (PS) 
TYPE 3 

(PC) (SP) (CDS) (CDD) (CDfl) (PS) 
TYPE M 



(PC) (SP) (CDS) (CDD) (CDC) (CDfl) (PS) 
TYPE 5 

(PC) (SP) (CDS) (CDD) (CDC) (CDfl) (CDfl) (PS) 

UflS SHB 



TYPE b 

(SP) (CDS) 'CDD) 

UAS 



(PC) (SP) (CDS) 'CDD) (CDC) (CDA) (COg) (PS) 



TYPE 7 



(PC) (SP) (CDS) (CDD) (CDD) (PS) 

UAS SHB 



MlHERE : 



BOB 



IPC) REPRESENTS THE PROGRPfl COUNTER LOCATION 
IN THE PROGRW* WHERE ^HE ERROR OCCURRED. 

(SP) REPRESEffTS THE CURRENT POSITION OF THE STACK 
POINTER (GEfCRft. PURPOSE REGISTER 6) 

(CDS) REPRESENTS THE CURRENT CONTENTS OF ThT CARD 
READER CONTROL STATUS REGISTER (177160) 

(COO) REPRESENTS THE CURRENT CONTENTS OF THE 
DATA BUFFER. INFORMATION IS ONLY VALID DURING 
DATA TRANSFERS EXCEPT OH THE CD20 CARD READER 
WHICH USES TfC DATA BUFFER REGISTER (177166) 
AS A 2fO STATUS REGISTER DURING NON-DATA TRANSFER 
PERIODS. (REFERENCE SECTION 1.2, PARAGRAPH A.) 

(CDC) REPRESENTS THE CURRENT CONTENTS OF THE 
CARD READER COLUMN COUNT REGISTER (177162) 

(CDA) REPRESENTS THE CURRENT CONTFNTS OF THE 
CARD READER BUS ADDRESS REGISTER (177164) 

(PS) REPRESENTS THE CURRENT CONTENTS OF THE 
PROCESSOR STATUS REGISTER (177776) 

'HAS' REPRESENTS THE INCORRECT VALUE FOUND 

'SHB' REPRESENTS THE CORRECT VALUE THAT SHOULD 
HAVE BEEN FOUND 



SEQ X14 



ERROR HALTS 



ALL UNUSED LOCATIONS FROM LOCATION M TO LOCATION 776 CONTAINS 
A .+2. HALT SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS. 
LOCATION 0 CONTAINS G TO CATCH IMPROPERLY LOADED VECTORS. I.E., 



LOCATION 



CONTENTS 



0 
4 
6 
10 
12 



HALT 
6 

HALT 
12 
HALT 



ETC. 

B. WHEN SU<15>=1 INDICATING TO HALT ON ERROR 

C. DURING ERROR FUNCTION TESTING OF READ CHECK. UHEN AN 
INTERRUPT DOES NOT OCCUR AFTER CARDS HAVE BEEN RESTORED 
TO THE INPUT HOPPER AND THE 'RESET' BUTTON ON THE CARD 
READER HAS BEEN PRESSED. 



CD2 

0. IF T«RE IS NO TEWIINftL TO OUTPUT INFORMflTION 

E. DURING ft POWER FAILURE IF THE POUER UP SEQUENCE UAS STARTED 
BEFORE THE POWER DOWN SEQUENCE HRO COHPLETED. 

PERFORfWNCE PROGRESS REPORTS 



5EQ 0015 



NOT RPPLICRBLE 

DEVICE INFORNPTIOfl TABLES 



P. STATUS REGISTER (I771b0) BH DESIGNATIONS 



BIT 


DESIGNATION 


MODE 


0 


READ 


URITE 


1 


DATA PACKING 


REAO/URITE 


2 


HOPPER EMPTY 


READ 


3 


REflOER TRANSITION TO ON-LINE 


READ 


4 


EXTENDED BUS ADDRESS (BITlb) 


READ/URITE 


5 


EXTEND^ BUS ADDRESS (BIT17) 


READ/URITE 


b 


iNTEf^T ENABLE 


READ/URITE 


7 


CONTROLLER READY 


READ 


8 


POUER CLEAR 


URITE 


9 


NON-EXISTANT MEMORY 


READ 


10 


DATA LATE 


READ 


11 


DATA ERROR 


READ 


12 


OFF-LINE 


READ 


13 


END OF FILE (M120Q/RS1200 ONLY) 


READ 


14 


CARD READER ERROR 






(READ, STACK OR PICK) 


READ 


lb 


ERROR 


READ 



B. COLUMN COUNT REGISTER (1771b2) BIT DESIGNATIONS 

BITS <15;0> CONTAIN THE 2' 5 COMPLEMENT OF THE NUMBER OF 
COLUMNS TO BE TRANSFERRED TO MEMORY UHEN CARDS ARE BEING 
READ. THE CONTENTS OF THIS REGISTER IS INCREMENTED BY 1 
EACH TIME A COLUMN TRANSFER OCCURS AND ALL TRANSFERS ARE 
INHIBITED UHEN THE CONTENTS OF THIS REGISTER IS EQUAL TO 0. 

ALL BITS ARE REAO/URITE. 

C. CURRENT ADDRESS REGISTER (1771B4) BIT DESIGNATIONS 

BITS <1S:0> CONTAIN THE MEMORY ffflDRESS INTO WHICH THE NEXT 
COLUMN OF DATA IS TO BE STORED. THIS REGISTER IS INITIALLY SET 
TO THE MEMORY LOCATION OF THE 1ST COLUMN TO BE READ. IT THEN 
INCREMENTS BY 1 FOR TRANSFERS IN PACK MODE; BY 2 FOR TRANSFERS 
IN NON-PACK MODE. ALL BITS ARE READ/URITE. 



DOS 



DATA BUFFER REGISTER (1771bb) BIT OESIGNRTIONS (REM) ONLY) 

SEG 001b 

1. mii-PfKK nOOE (COll/CDeO) 

BIT CORRESPONDINT. CARD i:ifiGE 



11 ZOfC 12 
10 ZOt€ 11 

•3-0 ZONES 0-3. RESPECTIVELY 
15 ALUPYS SEt (C020 ONLY) 
IS REAC CHECK (CD20 ONLY) 
13 PICK CHECK (C020 ONLY) 

12 STACK CHECK (CD?Q ONLY) 

2. PACK MODE (CD11/CD20) 

BITS 7 THRU 3 ARE ENCODED AS FOLLOWS: 
BIT CORRESPONDING CARD IMAGE 



7 ZONE 12 

b ZONE 11 

5 ZONE 0 

H ZONE 9 

3 ZONE 8 

BITS 2 THRU 0 REPRESENT AN OCTAL CODE ENCODED 
AS FOaOUS: 



BIT 


BIT 


BIT 


CARD 


02 


01 


00 


ZONE 


0 


0 


0 


ZONES 1-7 


0 


0 


1 


ZONE 1 


0 


1 


0 


ZONE 2 


0 


1 


1 


ZONE 3 


1 


0 


0 


ZONE 4 


1 


0 


1 


ZONE 5 


1 


1 


0 


ZONE b 


1 


1 


1 


ZONE 7 


BITS B THRU 


15 ARE UNUSED. 





EOS 



6.0 SUB-TESr SUmflRIES 

SEQ 00i7 

6.1 INSTRUCTIOrt TESTS 

iMlTIflLIZflTIOW OF ALL REGISTERS 
REflO/WRITE OF STATUS REGISTER 
RErtO/HRITE OF CXUMN COUNT REGISTER 
RERO/kRITE OF BUS flOORESS REGISTER 

CONTROLLER RERDY TO CLEflR BITM OF COS (177160) ^ _ 

'HOPPEREMPTY' (BIT02 OF CDS) TO BE CLEflR AFTER CARD READ 

INTERRUPT FROM CONTROLLER READY 

NO INTERWUPT WITH CPU AT LEVEL 7 

INTERRUPTS ON LEVELS 7 THRU 1 

NO INTERRUPT MITH INTERRUPT ENABLE SET ONLY 

SinULTflfCOUS INTERRUPTS AT MORE THAN i LEVEL 

NON-EXIbTANT HEHORY DETECTION 

BYTE LOADING OF COLUMN COUNT REGISTER 

BYTE LOADING OF 9US ADDRESS REGISTER 

DATIP LOADING OF COLUMN COUNT REGISTER 

DATIP LOADING OF BUS ADDRESS REGISTER 

UORD COUNT OVERFLOW TO 2ND CARD 

NON-PACK MCOE TRANSFER TO ODD ADDRESS 

6.2 DATA RELIABILITY TEST 

TESTING IS DONE ON BOTH ALPHANUMERIC AND BINARY (PACKED AND 
UNPACKED) DATA UTILIZING 80. CARD DECKS. 

A ALPHANUMERIC 

REFERENCE THE ALPHANUMERIC TABLE IN THE PROGRAM LISTING 
(BEGINNING AT THE LABEL 'ALPCD:') FOR THE IMAGE CODES 
PUNCHED IN TJC BO. COLUMNS OF THE 1ST CARD. EACH SUCCESSIVE 
CARD IN THE DECK USES THE SAME SEQUENCE OF COOES ROTATED 
ONE COLUMN TO THE LEFT, THE PACKED FORM OF THE IMAGE CODES 
FOLLOWS THE 'ALPCD:' TABLE. 

B. BINARY 

REFERENCE THE BINARY TABLE IN THE PROGRAM LISTING. (BEGINNING 
AT THE LABEL 'BINCD:') FOR THE BINARY COOES PUNCHED IN THE 80. 
COLUMNS OF THE 1ST CARD. KEEP IN HIND THE ZONE ENCODING 
DISCUSSED IN SECTION 5. PARAGRAPH D). EACH SUCCESSIVE 
CARD IN THE DECK USES tHE SAME SEQUENCE OF COOES ROTATED 
ONE COLUMN TO THE LEFT. THE PACKED FORM OF THE BINARY CODES 
FOLLOWS THE 'BINCD:' TABLE. 



FDi 



ER^^OR FUNCTION TESTS FOR niOOO/n20Q/ni200/RS1200 

SEQ X18 



)TP LATE 



INTERRUPT ON OFF TO ON-LINE TRANSITION 
INPUT HOPPER EMPTY 
OUTPUT STACKER FULL 
PICK CHECK ERROR 
STACK CHECK ERRiDR 

SNO OF FILE AND HOPPER CHECK (NISOO/RSISOO ONLY) 
EAO CHECK ERROR 



INSTRUCTIONS FOR MAKING A MIS-REGISTERED CARD 

CUT A SHALL RECTANGULAR HOLE ABOUT THE SIZE OF A NORMAL 
PUNCHED HOLE IN A BLANK CARD. MAKE SURE THE LEADING 
EDGE OF THE HOLE FALLS IN A POSITION WHICH IS NORMALLY 
CONSIDERED TO BE OUT OF REGISTRATION. (BETWEEN MARKED COLUMNS) 



GQ2 

' 1 REflOINC A SinaE DflTfl POTTERN 

SEO OOlS 

nORE EASILY STUDIED. T« PftTTERW INF»UT FROM THE USER IS STORED 

PNO T«N EACH COLUMN OF EACH CARD IS COMPAffiD 

AGAINST IT. IF A DISCREPANCY OCCURS. THE ERROR IS PRINTED 
OUT, ALONG UITH THE TOTAL NO. OF CAftOS READ AS WELL AS THE TOTAL 
NO. OF DATA ERRORS DISCOVERED UP TO THAT POINT. (NOTE: ALL 
PRINTOUTS ARE IN OCTAL), WHEN THE INPUT HOPPER BECOMES EMPTY, 
THE TERMINAL HILL ECHO A 'BELL'. THE PROGRAM UILL THEN WAIT 
FOR MORE CARDS TC BE LOADED AND THE CARD READER TO BE PUT 
BACK ON-LINE (I.E.. PRESSING 'RESET' BUTTON). (REFERENCE 
SECTION 2,1, PARACftAPH E.) 

fa. 5 LOOPING ON A SELECTED TEST 



THIS ALLOWS A SINGLE SUB-TEST TO BE RUN CONTINUOUSLY BY SELECTING 

THE TEST (INSTRUCTION PORTION ONLY) AND LOADING THE ADDRESS 

OF THE SCOPE INSTRUCTION AT THE BEGINNING OF THE TEST. (REFERENCE SECTION 2.1. 

PARAGRAPH D. ) 



7.0 HISTORY 
8.0 FLOW CHARTS 



"5.0 



PROGRAM LISTING 



THIS IS HISTORY OF T« DEVaOPtCWT OF MfllNDEC-U-DZCOB 
PRODUCT CODE: 



HflIf€EC-ll-DZCDB-R 
VERSION 000.001 

C011/CD20 CRRD REflDER DIAGNOSTIC 
NRRCH 21 197b 
BRUCE BURGESS 

NRINDEC-ll-DZCDB-B 
VERSION 000.002 

CD11/CD20 CARD READER DIAGNOSTIC 
MAY 1S77 
GREG GLEZNAN 



PRODUCT NAME: 
ORIGINAL RELEASE: 
ORIGINAL AUTHOR: 

PRODUCT CODE: 

PRODUCT NAME: 
DATE RELEASED: 
UPDATE AUTHOR: 

UPDATES: 

1. ADDED TEST FOR MONITOR PRESENCE. 

2. ADDED A HALT TO ALLOU THE OPERATOR TO SET THE SR 
SUITCHES IN THE CASE OF NO MONITOR. 

3. FIXED THE (LOU BYTE) LOAD TESTS FOR THE 

CDC AND CDA REGISTERS SO THEY FUNCTION UITHOUT ERROR. 

H. ADDED A TSET FOR THE RS1200 CARD READER 

TO TEST FOR A MIS-REGISTERED CARD. 

5. ADDED A QUESTION FOR THE OPERATOR TO INFORM 

THE PROGRAM IF IT IS TESTING AN RS1200 CARD READER. 

b. CHANGE THE MESSAGE TO THE OPERATOR PERTAINING TO THE 

STACK CHECK ERROR TEST. THE CHANGE MAKES THE PROCEDURE 



H02 

SEO 0020 



C011/CD20 CARD REPOER DIAGNOSTIC 



FLOU CHART 
««««««««»»«««««» 

C0U/C02a CRRD READER OIRGNOSTIC 

«!«««««««««««««« 



COPYRIGHT 1977 

DIGITftL EQUIPMENT CORPORATION 
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SEQ 0021 



C011/C020 CfiRD READER OIPGNOSTIC 



TABLE OF CONTENTS 
******************* 



rri^C 


uc 


TE5T FOR TNIT OF ALL REGISTERS 
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TFm RFOO/URITE STATUS REGISTER 
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DM 


TEST READ/URITE OF COLUHN COUNT REGISTER 


PQCP 
r nvic 




TEST READ/URITE OF BUS ADDRESS REGISTER 


PACE 




TEST CONTROLLER READY TO CLEAR BITO 


PACE 


Ur 


TEST BIT 2 TO BE CLEAR AFTER CARD READ 






TE5T INTERRUPT FROM CONTROLLER READY 






TEST NO INTERRUPT ON CONTROLLER READY & CPU AT LEVEL 7 
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ID 


TESTS FOR INTERRUPTS 
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■ "Sit 


11 


TEST FOR INTERRUPTS (CONT'D) 


PACE 




SIMILTANEOUS INTERRUPTS AT MORE THAN ONE LEVEL 
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13 


NON-EXISii^ T MEMORY DETECTION 
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BYTE & - iT LOAD OF COLUMN COUNT RbUlbTtn 


PAGE 


15 


WORD COUNT OVERFLOW TO 2N0 CARD 
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Ih 


BUS ADDRESS ODD & TRANSFER IN NON>PACK NODE 
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17 


DATA RELIABILITY TESTING 
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2H 


ERROR FUNCTION TFSTING OF MODEL M1200 
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40 


PROGRAM TO LOOP ON SINGLE DATA PATTERN 
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44 


PROGRAM TO LOOP ON TEST 
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ccn/coao cord rcaoer diagnostic 



KOE 

*" DECFLO VER 00.12 Ol-JUL-77 08:45 PfiGE 01 



5EQ 0023 



************ 

«BEGIN » START ADDRESS = 200 
************ 

I 

«f«««ff«»»f 

* VECTOR SETUPS AND » 
« HAROUARE/SOFTMARE * 

* "SHR- DETERMINATION * 
*********************** 

1 
I 

f»«»«ffff«f»f«ffX 

* INITIALIZE « 
« POINTERS AND » 
» FLAGS * 
***************** 

I 
I 

***************** 

* TYPE MAINDEC » 

* TITLE AND » 
» REV. LEVEL « 

I 

I 

************ 

»TST1(02) « 



LOS 



COU/CDSO cm) R£PC€R DIAGNOSTIC 
TEST FOR INIT, OF ALL REGISTERS 
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SlQ 002M 



»T5Ti(DiJ # 
************ 

I 

»««*«*«#*ftftft**«*ft«*f "i**** 
************ ** ** 
tCKOFFLC 45 )»-->»» CKOFFL »* 

ft* ** 
ftftftftftftftftftftftftftftftftftftftftftftftftft 
I 
I 

ftftftftftftftftftftftftftftftftft 
ft SEND OUT AN ft 
ftlNfflALIZATION ft 
ft PULSE (RESET) ft 
ftftftftftftftftftftftftftftftftft 
I 
I 

ftftftftftftftftftftftftftftftftftftftft 

/ REPORT /NO /IS BIT7 SET IN \ 

/ ERROR /< / STATUS REGISTER' \ 

/ / / \ 

ftftftftftftftftftftftftftftftftftftft 

I I YES 
)I 

ftftftftftftftftftftftftftftftftftftftft 

/ REPORT /NO /IS COLUMN COUNT \ 

/ ERROR / >/ REGISTER \ 

/ / / CLEARED' \ 
ftftftftftftftftftftftftftftftftftftft 

I I YES 
)I 

ftftftftftftftftftftftftftftftftftftftft NO / IS BUS ADDRESS N 

/ REPORT / >/ REGISTER CLEARED' n 

/ ERROR / / \ 

/ / 

ftftftftftftftftftftftftftftftftftftft I YES 

I >i 

ftftftftftftftftftftftft 
ftTST2(03) ft 



MOi 



coii/coao CARD RenoeR diagnostic 

TEST REAO/URITE STATUS REGISTER 
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SEQ 002S 



************ 
«TSTE(02) * 
************ 

I 

*********************** 

* SET ALL BITS IN * 

* STATUS REGISTER EX- » 
i CEPT FOR BITS 0 & 8 » 
*********************** 

1 
I 

******************** 

/ REPORT /NO /ARE ONLY BITS \ 

ERROR / >/ 1, 4. 5. b i 7 \ 

/ / / NOW SET' 

******************* 

I I YES 

I I 
************ *********************** 

«TST3(04) » » CLEAR THE STATUS « 

************ * REGISTER * 

* * 
*********************** 

I 
I 

******************** ~ 

/ REPORT /NO / ARE ALL BITS \ 

/ ERROR / >/ CLEAR IN STATUS \ 

/ / / REG. EXCEPT FOR 7' \ 
******************* 

i ,i ^= 

*********************** 

* SET ALL BITS IN » 

* STATUS REGISTER * 

* * 
*********************** 

I 
I 

******************** 

/ REPORT /NO / ARE ALL BITS \ 

/ ERROR / >/ CLEAR IN STATUS \ 

/ / /REG. EXCEPT FOR 7' \ 
******************* 

I I YES 

-_>I 

************ 

*TST3(04) * 



CDLl/CUtO CARD REAOCR DIAGNOSTIC 

TEST flEflO/l«ITE OF COLUMN COUNT REGISTER 



N02 
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SCO 002t> 



************ 

#TST3(03) » 
************ 
I 

ftftftf««ttW«tftMtff**t«f 

* LORD RLL BITS OF ♦ 

* THE CXUHN COUNT * 

* REGISTER « 

I 
I 

ft*«*«ft«ftft»ft«fttftft»ftftft 

/ REPORT /NO / IS T»€ CONTENTS \ 

/ ERROR / >/ OF THE CXUMN \ 

/ / / COUNT REG. =177777' \ 
«««««*««««««««*«««« 

I I YES 

>I 

******************** 

/ REPORT /NO /IS BIT 7 SET IN \ 

/ ERROR / >/ THE STATUS \ 

/ / / REGISTER \ 

««««««««««»««««»««« 

I I YES 
>I 

* ISSUE A POWER CLEAR « 

* VIA THE STATUS « 

* REGISTER » 

I 
I 

ftftft«f««f*»««ftt*t«**» 

/ REPORT /NO / IS Tf€ CONTENTS \ 

/ ERROR / >/ OF THE COLUMN \ 

/ / COUNT PEG. NOW 0' \ 
*«»«»««««««««tt«»ftft 

I I YES 

>I 

«»««««««««««««»«««« 

/ REPORT /NO / IS BIT 7 STILL n 

/ ERROR / >/ SET IN THE STATUS \ 

/ / / REGISTER' \ 
t«««ft«ft«»«ft«»««*««ft 

I I YES 
>I 

************ 

»TSTM(Q5) » 



B03 



C011/C02Q CflRC READER DIAGNOSTIC 

TEST REA0/1«ITE OF BUS ADDRESS REGISTER 
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SEO 0027 



************ 
»TSTM(04) * 
************ 
I 

* LOAD ALL BITS OF » 

* THE BUS ADDRESS « 

* REGISTER * 
*********************** 

1 
I 

******************** 

/ REPORT /NO / IS THE CO^fTENTS \ 

/ ERROR / >/ OF THE BUS flODR. \ 

/ / / REGISTER=177777' \ 

««««««««f««tff«»««« 

I I YES 
>I 

«««««««««««««««««««« 

/ REPORT /NO /IS BIT 7 SET \ 

/ ERROR / >/ IN THE STATUS \ 

/ / / REGISTER' \ 

«ft*»«ft«ff««««««««««* 

I I YES 
>I 

* ISSUE A POUER CLEAR « 

* VIA THE STATUS * 

* REGISTER * 
*********************** 

I 
I 

«if««»«f«««««Mft»««ft 

/ REPORT /NO / IS THE CONTENTS \ 

/ ERROR / >/ OF THE BUS AODR. \ 

/ / / REGISTER NOtI Q' \ 

»»««»i««f««««««ft««« 

I I YES 
)I 



/ REPORT /NO /IS BIT 7 STILL \ 

/ ERROR / >/ SET IN THE \ 

/ / / STATUS REGISTER' n 



I I YES 

>I 

************ 
«TST5(06) « 



CQ3 



CDli/C020 CARD READER DIAGNOSTIC 
TEST COMTROLLER READY TO CLEAR BITO 
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[NO 



************ 

»T5T5A(06) * 
************ 
I 

/ IS CONTROLLER 
/ READf CLEARED' 



\N0 
\-- 
\ 



I YES 
■>I< 



IS BIT 0 SET \YES 
IN STATUS \— 
REGISTER' N 



***********^ 
»TST5(03) » 
************ 
I 

»» ** 

** CKOFFL »» 

«ft ft* 
<ft«ftftft««ftftftftft«Mftftftft*ftftftft 
ft»«««ftfft«««ft»»ft««<«ft I 
/ REPORT / I 
->/ ERROR / «ftftftftft»ftftft#ftftftiiftftftftftftft 

/ / » SET UP COLUMN COUNT ft 

««»«««ftftftftftftftftftftftftft ft REGISTER TO READ ft 
I ft 1 COLUItl ft 

ttftftftftftftftftftftftftftftftftftftftftft 

««««««ftft«ftftftftftftftftftftft I 



/ 



REPORT 
ERROR 



NO 



««««««ftft«««*«««ft*ft«ftftftft 
ftlNCRENENT THE COUNT- ft 
ft ER USED TO UAIT FOR ft 
ft CONTROLLER READY ft 
»«««««««««««««««««««««« 

I 

I 

/ HAS THE COUNTER \ 
-/ OVERFLOMED TO ^ 
/ 0' \ 

rsi 

I 

«««ft««ftftftftftftftftft«f«ftftftftft 

ft RESTORE PROCESSOR « 
ftSTATUS TO WHAT IT UASft 
ft BEFORE READING CARD ft 

I 



/ / 
«ft«ftftftft«ft«ft««ftftfftftft 

I 

ftftftftftftftftftftftft 
»TST6(0;) ft 
ftftftftftftftftftftftft 



/ I 
/ «»«ftftftftftftftftftftftftftftftftftftftft 
ft SET UP NEHORY AODR. ft 
ft FOR COLUMN CONTENTS » 
ft TRANSFER ft 
«««ftft««ftftftftftft«ftftftft««ftft« 
I 

1 COUNT 
»«ftftftftftftftftftftftft«ftftft«ftftftft 
ftlNITIALIZE A COUNTER » 
ft TO UA7T FOR « 
ft CONTROLLER READY ft 
«««ft«ftftftftftftft«ftftftftftftftftftft 
I 
I 

««««ftftftft««ftftftftftftft 
ft START READING ft 
ft A CARD ft 
ft ft 
«««ft««ftftftftftftftftftftft 
I 

ftftftftftftftftftftftft 
ftTST5A(06) ft 
ftftftftftftftftftftftft 



ftftftftftftftftftftftft 
■>ftCK0FFL(45)ft 
ftftftftftftftftftftftft 

ftftftfftftftftftftftft 
ftTST5B(0b) ft 
ftftftftftftftftftftftft 

I 

ftftftftftftftftftftft«ftftftftft«tft 

/ IS ERROR BIT \YES / REPORT 

/ (BITiS) SET IN \ >/ ERROR / 

/ STATUS REGISTER' \ / / 
ftft«ftft*«ftftftft«ft««ftft«« 

I NO I 

f ftftftftftftftftftftftX 

I ftTSTb(07) ft 

I ftftftftftftftftftftftft 

I 
I 
I 
V 

/ANY OTHER ERROR \YES ftftftftftftftftftftftftftftftftftftftft 

/ BITS SET IN \ >/ RETORT / 

/ STATUS REGISTER' \ / ERROR / 

/ / 

I NO ftftftftftftftftftftftftftftftftftftft 

I< 1 

ftftftftftftftftftftftft 
ftTSTb(07) ft 
ftftftftftftftftftftftft 



/ IS CONTROLLER 
/ READY SET' 



\N0 

\— 
\ 



I YES 



ftftftftftftftftftftftftftftftftftftftft 
/ REPORT / 
--> ERROR / 

/ / 
ftftftftftftftftftftftftftftftftftftft 
I 



ftftftftftftftftftftftft 

«TST5e(06) ft 



CD11/C020 CARD REfiDER DIAGNOSTIC 

TEST BIT 2 TO BE CLEfiR AFTER CARD READ 



*TST6A(07) » 
I COUNT 

»INITIALI2E A COUNTER » 

* TO UflIT FOR CON- t 

* TROLLER READY » 

I 

» STORE CURRENT PROC- « 
tESSOR STATUS & CLEAR « 
»THE TRACE BIT (BITM) » 
t»«ft««««t«««ftftMf ««§««« 

>I 



/ IS CONTROaER WES ************ 
/ READY' \ >»TSTbB(07) * 



I NO 

««fff«ft««fiftifiiftf«if««i 

•DECREMENT THE COUNTER* 
» USED TO UAIT FOR * 
* CONTROLLER READY * 
*********************** 
I 

NO / HAS THE COUNTER \ 
/ OVERFLOUED TO 0' \ 

/ \ 



I YES 

******************** 

/ REPORT / 
/ ERROR / 

/ / 

I 

»TST7(rB) * 



DO 
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SEQ 002S 



ffftftft«««*fft« 
*TSTb(06) * 
ftftftft#l 

I 

*»ft«f««ft«M«ft««««««ft««««« 
** ** 

** CKOFFL »«- 

ft* ** 
************************* 

♦ 

X 

««««»««*«««««««««««««« 
» CLEAR THE STATUS * 
ft REGISTER ft 
ft ft 
««ft«ft«ftftftftft««ftft«ft««ftftftft 
I 

ftftftftftftftftftftftftftftftftftftftftftftft 
ft SET UP CXUm COUNT ft 
ft REGISTER TO READ ft 
ft SO COLUmS ft 
ftftftftftftft«ft«ftft«f«ft«ft«ftft«« 
I 

ft SET UP rCnORY ADOR. ft 
ft FOR COLUMN CONTENTS ft 
ft TRANSFER » 
ftftftftftftftftftftftftftftftftftftftftftftft 

I 

I 

ftftftftftftftftftftftftftftftftft 
ft START READING ft 
ft A CARD ft 
ft ft 
ftftftftftftftftftftftftftftftftft 

I 

I 



ftftftftftftftftftftftft 

>ftCK0FFL(45)ft 

ftftftftftftftftftftftft 
ftftftftftftftftftftftft 

ftTSTE»B(07) ft 

ftftftftftftftftft£ftft 

I 

ftftftftftftftftftftftftftftftftftftftftftftft 

ft RESTORE PROCESSOR ft 
ft STATUS TO HHAT IT * 
ftUAS BEFORE CARD READ ft 
ftftftftftftftftftftftftftftftftftftftftftfft 

I 

/ IS CONTROLLER \N0 
/ READY' \- 

/ \ 

i'yes 

I< 



ftftftftftftftftftftftftftftftftftftftft 
/ REPORT / 
— >/ ERROR / 
/ / 
ftftftftftftftftftftftftftftftftftftft 
I 



/ IS ERROR BIT \YES 
/ (BITiS) SET IN \— 
/ STATUS REGISTER' \ 

I NO 

I< 

ftftftftftftftftftftftft 
ftTST7(08) ft 
ftftftftftftftftftftftft 



ft ft«ftftftftftft«ftftftftft#ftft4ft 

/ REPORT / 

■->/ ERROR / 
/ / 
ftftftftftftftftftftftftftftftftftftft 

I 



/ IS CONTROLLER \YES 
/ BUSY' \— 

/ \ 

I NO 

I< 

ftftftftftftftftftftftft 
ftTSTbA(07) ft 
ftftftftftftftftftftftft 



ftftftftftftftftftftftftftftftftftftftft 
/ REPORT / 
-> ERROR / 
/ / 
ftftftftftftftftftftftftftftftftftftft 
I 



EO 



3 



CD!i/CD5n CflflD READER DIAGNOSTIC 
TST INTERRUPT FRCfl CONTROLLER RfAOY 
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************ 

«TINT7(08) « 
************ 

I 

*Ti****************** 

/ MAS CONTROLLER \N0 / REPORT / 
/ REAPV \— >/ ERROR / 
/ \ / / 
******************* 

1 YES I 
I< 

***************** 

* RESET STACK » 
« POINTER FRON » 
» INTERRUPT « 
***************** 

I 

******************** 

/ DID ANY KIND \YES / REPORT / 
/ OF ERROR SHOU \~>/ ERROR / 
/ UP» \ / / 
««««««««»«»»«««««>« 

I NO I 

I< 

***************** 

* DISABLE ft 

* INTERRUPTS ft 
ft * 
ft«ft««ft«ftfft«ftftftft«« 

I «««»»«««ft«ftft 
I< »C0NT7 ft 

«**««ft««ftftft««ftft«ft«ft««ft« ****** »ftftftftft 

ft RESET TRAPCATCHER ft 

ftVECTOR LOCATIONS 230 ft 

ft AND 232 ft 

«ftft««««««ftft««»«ftftftftft««« 

I 

ftftftftftftftftftftftft 
ftTSTlO(Oq) ft 
«ftt«ftftftft«ft»« 



«ftftftftftftftftftftft 
ftTST7(07) ft 
ftftftftftftftftftftftft 

I 

ftftftftftftftftftftftftftftftftftftftftftftftftft 
ftft ftft 
ft* INIT ftft- 

** ftft 
ftftftftftftftftftftftftftftftftftftftftftftftftft 
I 

ftftftftftftftftftftftftftftftftftftftftftftft 
ft SET RETURN POINT ft 
ft AND PS FOR UHEN AN ft 
ft INTERRUPT OCCURS ft 
*********************** 

I 

ftftftftfffftftftft««ftftftft 

ft SET CPU TO ft 
ft PRIORITY ft 
ft LEVEL 0 ft 
«ftftftftftft«ftftftftftftftftft 

I 

ftft«ftftftftftftfftftftft«ftftftftftftftft 
ft SET COLUMN COUNT TO ft 
ft31(10) AND BUS AODR. ft 
ft TO -BUFBEG" ft 
ftftftftftftftftftftftftftftftftftftftftftftft 
I 

ft«ftftft««ftft«ftftftfttftft 
ft SET INTERRUPT « 
ft ENABLE AND ft 
ft READ ft 
ftftftftftftftftftftftftftftftftft 
I 

«f«ftft«ftftftftft«ftftftftft 
ft UAIT FOR ft 
ft CONTROLLER ft 
ft READY ft 
ftftftftftftftftftftftftftftftftft 
I 



f«ftftftftftftftftftft 

•>ftINIT(45) ft 
************ 



ftftftftftftftftftftftft 
ftINTN(08J ft 
ftftftftftftftftftftftft 

I 

«ftftftf ftftftftf ftftftftftftftftftft ft** 
ftGIVE CONTROL SACK TO ft 
ft CPU AND DISABLE ft 
ft INTERRUPTS ft 
f ftftftft«ftft)k >«ftftft»ftftftftftftftft 
I 

ft»ft«ftftft«ftftftft«ftftftftftftft 

/ REPORT / 

/ ERROR / 

/ / 

ftftft«ft«>ftftftftftjr«ftftftX« 

I 

************ 

*C0NT7 ♦ 
ftftftftftftftftftftftft 



/ DID AN INTER- \N0 
/ RUPT OCCUR' N- 
/ \ 



************ 
->ftINTN(08) ft 
ftftftftftftftftftftftft 



I YES 
ftftftftftftftftftftftft 

ftTINT7(08) ft 



F03 



CD11/CD20 CfiRO REflOER OlfiGNOSTIC , ^ , 

TEST NO INTERRUPT ON CONTROLLER READY & CPU AT LEVEL 7 
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5EQ 0031 



»««ftftftftftft«i>ft 

*TINT10(0S)« 
«««««««««««« 

I 

******************** 
/ REPORT / 
/ ERROR / 
/ / 
******************* 
I 

t RESET SlUCK * 
i POINTER FROM » 
» INTERRUPT * 
***************** 

:< 

I 

******€********** 

« DISABLE * 
« INTERRUPTS * 
* » 
*********t******* 

I 

*** ******************** 

* RESET TRAPCATCHER * 
*\tC10R LOCATIONS 230 » 

* AND 232 * 
***************!******* 

I 

«««««««««««« 

«TST11(10) * 
************ 



************ 
-»T1QG0 * 
************ 



************ 

«TST10(Q8) « 
************ 
I 

** i* ************ 

** INIT >«INIT(H5) » 

** ** i«i«««fffMM 

************************* 

I 

*********************** 

* SET RETURN POINT » 
« AND PS FOR UHEN AN X 
» INTERRUPT OCCURS i 
*********************** 

I 

***************** 

* SET CPU TO * 
tPRIORITY LEVEL * 

* 7 * 
***************** 

I 

*********************** 

* SET COLUMN COUNT TO # 
« 6(10) AND BUS ADOR. * 

* TO "BUFBEG" » 
*********************** 

I 

***************** 

* SET INTERRUPT * 

* ENABLE * 

* READ ft 
***************** 

I 

««»»«f«ftftftft««ft»«ft 

ft UAIT FOR ft 
ft CONTROLLER ft 
ft READY ft 

«f»«ftMft«««ftftftftftft 

I 

/ DID AN \N0 ft««««ftftftft«ftft 

/ INTERRUPT \ >»T10G0 * 

/ OCCUR ' \ #»«»ftft»ftftftftft 

I YES 
************ 
ftTINT10(0S)ft 



Ik 



G03 



co::/CD£0 cflfio reader diagnostic 

TESTS FOR INTERRUPTS 



DECFLO VER 00.12 Ql-JUL-77 08:45 PAGE 10 



5E0 0032 



»fINTll(10)» 
I 

/ IS CONTROLLER 
REPDY SET ' 



\N0 

\— 
\ 



************ 

*TST11(09) » 
************ 
I 

««««««««««««««««««««««««« 
** ** 
********************** INIT **' 

/ REPORT / ** ** 

->/ ERROR / *«»»»«»»»#«»««««»»»*«*»« 



•)»INIT(M5) « 
«««««««»«««« 



I YES 

I< 

* DISABLE * 
» INTERRUPTS * 

* * 
***************** 

I 

' RESET TRfiPCATCHER » 

* VECTORS 230 & 232 * 

* * 
*********************** 

1 

***************** 

* RESET STM:k « 
t POINTER FROM * 

* INTERRUPT * 
***************** 

I 



/ / 
««ftft*««««f ««««««««« 

I 



/ HAVE UE INTER- \YES 
/ RJPTED BEFORE AT \— 
/ ANOTHER LEVEL' \ 



««#«««««««««««««« 
» GO TO NEXT * 
* TEST » 
ft ft 
ftftftftftftftftftftftftftftftftft 
I NO 

/ WAS THE OTHER 
>/ LEVEL LOWER' 

/ 



I NO 

*** .ftftf ftft«ft«ft«ftftft««ftftftft 
« SET PREVIOUS INTER- » 
tRUPT FLAG (INTFLG) & * 
» STORE CURRENT LEVEL » 
ftfftftftftftftftftftftftftftftftftftftftftft 
I 

tift«ftftfftftftft»ft«ftftftftft«ftj>« 

ftTYPE nSG, INDICATING » 
» WHAT THE INTERRUPT * 
♦ LEVEL WAS ft 

tftft**ftft#ft#ftftftftftft««ftftft«» 

I 

ftftftftftftftftftftftftftftftftft 
» GO TO fCXT ft 
t TEST ft 
« t 
ftftftftftftftftftftftftftftftftft 



I YES 

ftftftftiftftftftftftftftftftftftftftft 
/ REPORT INTERRUPT / 
/OCCURRED AT LOWER / 
/ LEVEL / 

ftftftftftftftftftftftft Kftiftftftft 

I 

ftftftftftftftftftftftftftftftftft 

ft GO TO NEXT ft 
ft TEST ft 
ft ft 
ftftftftftftftftftftftftftftftftft 



I 

ftftftftftftftftftftftftftftftftftftftftftftft 
ft SET RETURN POINT ft 
ft AND PS FOR WHEN AN ft 
ft INTERRUPT XCURS ft 
ftft««««ftft«««ft«««ftft«ftft««« 
I 

ftftftftftftftftftftftftftftftftft 
ft SET CPU TO ft 
ft PRIORITY ft 
ft LEVEL b ft 
Iftftftftftftftftfftftftftftftft 
I 

ftftftftftftftftftftftftftftftftftftftftftftft 
ft SET COLUMN COUNT TO ft 
ftBOClO) AhO BUS AOOR. ft 
ft TO "BUFBEG- ft 
ft«ftftftft«ft«ft«««««ftftftft«ftftft 
I 

ftftftftftftftftftftftftftftftftft 
ft SET INTERRUPT » 
ft ENABLE AND « 
ft READ » 
ftftftftftftftftftftftftftftftftft 
I 

ftftftftftftftftftftftftftftftftft 
ft WAIT FOR ft 
ft CONTROLLER ft 
ft READY ft 
ftftftftftftftftftftftftftftftftft 
I 



/ DID AN INTER- 
RUPT OCCUR' 



\YES 
\ — 



ftftftftftftftftftftftft 

ftPR70K(10) » 
ftftftftftftftftftftftft 

I 

ftftftftftftftftftftftftftftftftt 
ft GIVE CULL t 
ft CONTROL BACK ft 
ft TO CPU ft 
ftftftftftftftftftftftftftftftftft 
I 

ftftftftftftftftftftftftftftftftft 
ft DISABLE ft 
ft INTERRUPTS ft 
ft ft 
ftftftftftftftftftftftftftftftftft 
I 

ftftftftftftftftftftftftftftftftftftftftftftft 
ft RESET TRAPCATCHER ft 
ftVECTOR LOCATIONS 230 ft 
ft AND 232 ft 

ftftftftftftftftftftftftftftftftftftftftftftft 
I 

ftftftftftftft4«ftftftftftt*t 

/ HAVE WE INTER-' \N0 ft GO ON TO NEXT ft 
/ RUPTED BEFORE AT \->ft TEST ft 

/ ANOTHER LEVEL' \ ft ft 
ftftftftftftftftftftftftftftftftft 

I YES 

ftftftftftftftftftftftftftftftftft 

/ WAS THE OTHER \YESft REPORT INTER- ft 
/ LEVEL HIGHER' \->* RUPT OCCURED ft 
/ \ ftAT HIGHER LVL. ft 
ftftftftftftftftftftftftftftftftft 

I NO I 

I< 

ftftftftftftftftftftftftftftftftft 
ft GO ON TO NEXT ft 
ft TEST ft 
ft ft 
ftftftftftftftftftftftftftftftftft 



ftftftftftftftftftftftft 
■>ftTINTll(lO)ft 
ftftftftftftftftftftftft 



I NO 



IS CONTRXLER 
READY SET' 



\N0 
\ — 
\ 



ftftftftftftftftftftftJ^ftftftftft 
ft HANG IN ft 
■>ft LOOP ft 
ft WAITING ft 
ftftftftftftftftftftftftftftftftft 



I YES 
ftftftftftftftftftftftft 

ftPR70K(10) ft 



NOTE: TST12. AND TST13 
ARE STRUCTURED SIHILARY 
AND WILL TEST CPU LEVELS 
5 AND 4, RESPECTIVELY 



C011/C020 CARD READER DlfiG^OSTIC 
TEST FOR INTERRUPTS (CONT'D) 



HO 



DECFLO VER 00.12 Ol-JUL-77 08:45 P«GE U 



SEQ 0033 



TEST IH THRU 17 fiRE STRUC "URED SIMILARLY 

TO THfiT SHOUN FOR TEST 11 »TSTli(10) » 

************ 

TESTS IS THRU 17 COVZR CPU LEVELS 3.2,1 fiND 0; 
THE ONLY DIFFERENCE BEING THAT UE (WE NOW 
LOOKING FOR RN INTERRUPT TO OCCUR SINCE THE CPU 
LEVELS RRE BELOU THE DEVICE LEVEL OF M. 



*****i****** 

»TST20fi(ll)» 

I 

/ DID RN INTERRUPTWES 
/ FINALLY OCCUR' \~ 

/ \ 

I NO 

» GIVE CONTROL » 
« BftCK TO CPU » 
ft ft 
ftftftft«ft«ftftftftftftftftftft 

I< 

ftftftftftftftftftftftftftftftftft 
ft DISABLE * 
ft INTERRUPTS » 
ft ft 
ft*ftft*««««««««ft««ft 

I 

ft««ftft*«ft3«»ftf««fff««ftft« 

• RESET TRAPCATCHER » 

• VECTOR LOCATIONS » 

• 230 ( 232 « 
ftfti»ftftft«ftftftftft««ftft«ftftft>> 

I 

ftftftftftftftftftftftft 

ftTS721(12) * 
iftftftftftftftftftftft 



ftfftftftCftftffftftftftftftf 

* REPORT ERROR * 
>» NO INTERRUPT » 
ft SHOULD OCCUR * 
***************** 

I 

ftftftftftftftftftftftftftftftftft 
ft RESET STACK » 
ft POINTER FROM « 
ft INTERRUPT ft 
ftftftftftftftftftfftftftftftftft 
1 



ftftftftftftftftftftftft 
#TST20 » 
ftftftftftftftftftftftft 

I 

ftftftftftftftftftftftftftftftftftftftftftftftftft 
»» «ft 
«» INIT ftft- 

ft« ftft 
«f««««ft««ftft««ftft««ftftftftftft«ft 
I 

ft««««««ftftftft«ftft«ftft««ft«ft« 

ftSET RETURN POINT AND » 
ft PS FOR WHEN AN » 
ft INTERRUPT OCCURS « 

«ftftftft«««ft«ft««ftft«ftft«ft*«X 

I 

ftftftftftftftftftftftftftftftftft 
ft SET CPU TO » 
fPRIORITY LEVEl » 
ft 0 » 

«ftftft«««««ft«««ftft»ft 
I 

ftftftftftftftftftftftftftftftftftftftftftftft 

« SET COLUMN COUNT TO » 
ft 1(10} AND BUS ADDR. « 
ft TO "BUFBEO" » 

««ft«»ftft««»ft«ft««««»«««ftX 

I 

ftftyftftftftftftftftftftftftftft 
ft ENABLE ft 
ft INTERRUPTS » 
ft ft 
ftftftftftftftftftftftftftftftftft 
I 

ftftftftftftftftftftftftftftftftftftftftftftft 

ft UAIT AWHILE TO ft 
ft SEE IF AN INTERRUPT ft- 
ft OCCURS * 



ftftftftftftftftftftftft 
->#INIT(45) » 
ftftftftftftftftftftftft 



ftftftftftftftftftftftft 
■>«TST20A(il)ft 
ftftftftftftftftftftftft 



ID 



C011/C0d3 C«RO READER DIftCNOSTIC 

SIMlLTfltCOUS INTERRUPTS AT MORE Th«N ONE LEVEL 



DECFLO VER 00.12 ni-JUL-77 08:H5 PAGE 12 



SEQ 003H 



ftftftft«ft«««««ff 

»TINT2l(12)« 

I 

"oio'ilE'RECEIVE 
A 2ND INTERRUPT 



I NO 



»««««««««««««« 

* GIVE CONTROL * 

* BACK TO CPU « 
ft « 
ftftftftftftftftft««ftftft««« 

I< 

ftftftftftftftftftftftfffftftft 
ft DISABLE ft 
ft INTERRUPTS ft 
ft ft 
ftftftftftftftftftftftftftftftftft 

I 

ftftftftftftftftftftftftftftftftftftftftftftft 
ft RlSTORE TRAPCATCHER ft 
ftVECTOR LOCATIONS 230 ft 
ft AND 232 ft 

ftft ftftftftftftftftftftftftftftftftftftftftft 
I 

ftftftftftftftftftftftft 
»TST22(13) ft 
ftftftftftftftftftftftft 



«««ft«ftftftft«««««««« 

WES ft RESET STACK « 
\— ># POINTER FROH « 
\ ft INTERRUPT « 
««««««««««««««««« 

I 



ftftftftftftftftftftftft 

«TST21(11) ft 
ftftftftftftftftftftftft 

I 

ftftftftftftftftftftftftftftftftftftftftftftftftft 
«« ftft 
«« INIT ««- 

«« «« 
««««««««««««««M««««««««« 
I 



ftftftftftftftftftftftft 
>«INIT(H5) ft 

««««««««««! ft 



««ft««««««««««««««ftftftftft«ftft«ftft««ftftft«ftftftftft«ftftft 



/ REPORT 
/ ERROR / 
/ / 
ftftftftftftftftftftftftftftftftftftft 

1 



/ ft SET RETURN POINT ft 
ft AND PS FOR UHEN AN ft 
ft INTERRUPT OCCURS « 
ftftftftftftftftftftftftftftftftftftftftftftft 

I 

ftftftftftxftftftftftftftftftftft 
« SET CPU TO ft 
ft PRIORITY ft 
ft LEVEL 0 ft 
ftftftftftftftftftftftftftftftftft 
I 

ftftftftftftftftftftftftftftftftftftftftftftft 

ft SET COLUMN COUNT TO * 
ft 1(10) AND BUS AOOR. « 
ft TO "BIFBEG" ft 
ftftftftftftftftftftftftftftftftftftftftftftft 

I 

ftftftftftftftftftftftftftftftftft 
ft SET INTERRUPT » 
ft ENABLE 9t€ * 
ft READ ft 
ftftftftftftftftftftftftftftftftft 
I 

/"'did an inter- \no 
/ rupt occur \" 

/ \ 



I YES 
ftftftftftftftftftftftftftftftftft 
ft RCSET STACK » 
ft POINTER FROM ft 
ft INTERRUPT ft 
ft«ft»««««ft««ft««ftft« 

I 

««ft««ftftftft»ftftftft««ft 

" SET RETURN ft 
ftADOR. FOR NEXT »- 
ftPOSSIBLt INTER.* 



ftftftftftftftftftftftftftftftftft 
ft HANG IN LOOP ft 
■>ft UAITING ft 
ft ft 
ftftftftftftftftftftftftftftftftft 



ftftftftftftftftftftftftftftftftft 

ft SET CPU BACK ft 
->ft TO PRIORITY ft- 
ft LEVEL 0 ft 



ftftftftftftftftftftftft 
-->ftTINT21(l2)ft 
ftftftftftftftftftftftft 



JO 



CD11/CD20 CARD READER DIAGNOSTIC 
NON-EXISTRWT MEMORY DETECTION 



DECFLO VER 00.12 Ol-JUL-77 03:45 PAGE 13 



SEQ X3S 



************ ??c?5S??5?*![ 

fTINT22(13)» «TST22(12) * 

h*********** ************ 

*********************** ************************* 

» RESTORE TRRPCRTCHER * ** ** 

»VECTOR LOCATIONS 230 » »« INIT «»" 

« i 232 * ** ** 

«ft«f»»««««f«f «»<(««««««« »«»«««»»«»»»««»»»*»«»» 

I I 
******************** *********************** 

/ 15 CONTROLLER \N0 / REPORT / «SET RETURN POINT AND « 

/ READY' \ )/ ERROr< / « PS FOR VHDi m * 

/ \ / / * INTERRUPT OCCURS « 

**********K******** *********************** 

I YES I I 

I< ***************** 

**>k***************** * SET CPU TO » 

/ IS ERROR BIT15 \N0 / REPORT / fPRIORITY LEVEL * 

/ SET' N >/ ERROR / * Q * 

/ \ / / ***************** 
******************* I 

T VPS I ***************** 

I< * SET COLUMN # 

******************** * COUNT TO READ * 

/ IS NXn BITOg \N0 / REPORT / * 5(10) COLUMNS * 

/ SET' \ >/ ERROR / «»»»«»»«»«««»«»» 

\ / / I 

******************* *********************** 

I YES I » SET BUS ADDRESS TO * 

I<-_: * NON-EXISTANT MEMORY « 

*'i****************** * I.E. LOC. 180000 * 

/ IS EXTENDED \N0 / REPORT / *********************** 

MEMORY BIT 17 \ >/ ERROR / I 

SET' \ / / ***************** 

* SET INTERRUPT * 

I YES I lENABLE. READ & * 

«EXT. Vin. BITS * 

***************** 

IS EXTENDED \N0 / REPORT / I 

MEMORY BITlb \ >/ ERROR / „^ 

SET' \ / / / DID AN \N0 
******************* / INTERRUPT XCUR' N — 

I YES I / ^ 

I< 

I YES 

»T22A(13) * ***************** 
************ * RESTORE STACK * 

* POINTER FROM * 

* INTERRUPT * 
***************** 

I 

************ 
»TINT22C13)» 



************ 
fT22A(13) * 
************ 

I 

««««««««ftt*«t«*«« 

************ / ANY OTHER ERROR nYE5« REPORT * 
•>#INIT(45) * / BITS SET ' E.G. \->» ERROR * 
************/ BITS 2, 10, 11, ETC. \ * * 
»«t«««««f<i«f«*ft«« 

I NO I 

I< 

«ft««f««««t«««ftft»» 

/ DOES BUS AODR. \N0 * REPORT • 
/ REGISTER CONTENTS \->« ERROR i 
/ =lb0002 ' \ « * 
***************** 

I YES I 

I< 

***************** 

/ DOES COLUMN CNT \N0 * REPORT # 
/ REGISTER SHOH 4 \->i ERROR « 
/ COLUMNS LEFT ' \ » * 
«««ft*»«««««tftt*«« 

I YES I 
I< 

************ 
»TST23(14) * 
************ 



***************** 

* HANG IN LOOP * 
>* WAITING * 

* * 
***************** 



C011/C020 CMO REPOCR DIAGNOSTIC 

BYTE S MTIP LOW OF CXUHN COUNT REGISTER 



K03 



OECFLO VER 00.12 Ol-JUL-77 QB: 45 PftGE IM 



SEQ 00% 



«MMfffiif«i 

ftTST23(13) « 
•§•#•§••••§« 

• ihitSlize » 

•••ttfMffff«fi«i«fti 

I 

i LORD LOUER BYTE OF « 
» Ca.UHNCOUNT REG. » 
* UZTH THE VRLUE 2S2 * 

I 



/ DID UPPER BYTE \N0 » REPORT * 
/ GET LORDED WITH \— >ft ERROR t 
/ THE VRLUE 2S8 RLSO^ \ « « 
»««»«««««««»«««»» 

I YES I 

I< 

fffff«««fft»« 

iTST24(14) » 
************ 



************ 
«TST2H(m) « 
«««««#«««««« 

I 

***************** 

* INITIALIZE » 

* COLUHN COUNT » 
» REGU ER TO 0 * 
***************** 

I 

*********************** 

* LOAD HIGH BYTE OF * 

* COLUMN COUNT PEG. * 

* WITH THE VALUE 252 « 
**************<******** 

1 

***************** 

/ DID LOWER BYTE n » REPORT * 
/ GET LOADED WITH \-J» ERROR » 
/ THE VALUE 252 ALSO' \* » 

it«*«««^«««»ft«f««« 

I< 1 

**********'L* 

*TST25(1M) * 
************ 



************ 
*TST25(14) * 
************ 
I 

* INITIALIZE * 

* COLUHN COUNT * 

* REGISTER TO 0 » 
***************** 

I 

«««««««««««»»»««»«««««* 

* LOAD COLUMN COUNT * 
»REGISTER WITH 100000 * 

* AND NEGATE IT * 
*********************** 

I 

««f««»««iftf#ftft«»ft 

/ DID CONTENTS OF \YES * REPORT » 
/ COLUMN COUNT REG. \— >» ERROR # 
/ CHANGE ' \ f * 

«M««f««««««ft«ftft« 

I NO I 

I< 

************ 

«TST26 * 
************ 



NOTE: TESTS 2b. 27 AND 30 ARE CARBON COPIES OF TESTS 23, 
24. AND ^5, RESPECTIVELY. ONLY DIFFERENCE BEING 
ThAt TESTS 23 - 25 OPERATE ON COLUMN COUNT REGISTER, 
AND TESTS 2b - 30 OPERATE ON BUS ADDRESS REGISTER. 



LQ 



3 



C011/C020 CORD READER OIM^NOSTIC 
UORO COUNT OVCRFLOU TO 2N0 CRRO 



DECFLO VER 00. i2 Ol-JUL-77 08:45 PAGE 15 



SEQ 0037 



«§«§••••«#«« 
tTINT31(15)« 
MffffffffffMM 

I 



\M0 



************ 

fTST31 « 
************ 

I 

«««««#«««««««»«««««««*«** 
********************** ** 

/ REPORT / If INIT »#- 

->/ ERROR / «» »» 

/ / ************************* 



************ 
■>#INIT(45) « 
«««««««#«««« 



YES 



I 

***************** 

I ?^ : 

* INTERRUPTS » 
***************** 

I 

# RESTORE TRfiPCflTCHER * 
•VECTOR LOCATIONS 230 « 
» AND 232 * 

*********************** 

I 

♦ RESET STACK » 

♦ FROM * 

• INTERRUPT « 
**»«»»««««««««««» 

I 

/ HERE 2 \N0 
/ CARDS READ' \- 

i< 

«TST32(16) * 
************ 



******************* 

I 



I 

***************** 

» SET UP RETURN » 

i AOOR. AND PS « 
» FOR INTERRUPT » 
***************** 
I 

***************** 

* SET PROCESSOR » 
« TO LEVa » 

* 0 * 

I 

«ffff«fff»f««ff «««««««« 

» SET CaUWN COUNT TO » 
» 81(10) I.E.-URAP * 

* AROUND TO 2ND CARD * 
*********************** 

I 

*********************** 

* SET A START ADDRESS * 
******************** * FOR DUNP OF CARD * 

/ REPORT / » CONTENTS » 
->/ ERROR / 
/ / I 

«««««#«*««««««««««« ***************** 
I » SET INTERRUPT * 

* ENABLE AND * 

« READ * 
***************** 
I 



/ DID WE GET AN \YES 

/ INTERRUPT' \ — 

/ \ 

I NO 
************ 

«TINT3l(15}« 



************ 
«T23G0 f 
************ 

I 

»«fffff«««fftfft«»f 
» GIVE CONTROL • 
i BACK TO * 
» CPU « 
«««««««««««#««««« 
I 

«fff«ffftffff«ftft«i 
« DISABLE « 
« INTERRUPTS « 
* * 
***************** 
I 

*********************** 

» RESTORE TRAPCATCHER » 
»VECTOR LOCATIONS 230 * 
ft &232 ft 

«*ftftft««ftftftftft«ftft«««ftftftftft 

I 

«ft«ftftft«ftftftftf«ftftftftftftft 

/ REPORT / 
/ ERROR / 
/ / 
«««««««««ftft«««ftftft«« 
I 

ftftftftftftftftftftftft 
«TST32(16) ft 
ftftftftftftftftftftftft 



««««ftf«ftftft«ft 
•>ftT31G0 ft 
ftftftftftftftftftftftft 



C0il/C020 CRM REflOCR DIAGNOSTIC 

BUS (ttORESS 000 & TRPNSFER IN NON-PACK NODE 



«ftffffiiffiii 

«ENDCK(lb) « 
«««««##««««§ 

I 



/ \YCS «tfiMftfftM« 

/ IS SNK07 > SET' \ >«flTST(17) f 

/ \ fftlMMMM 



I 

» DING tt 

« A i 

« LINC» f 

I 

#«ESTRT i 



«f«MfMM«» 

«ENOCK(lb) «< 



M03 

DECFLO VER 00.12 Ol-JUL-77 08:45 PAGE lb 

SEO 0038 
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iTST32(i5) f 

MMMMWMM M MMM 

WW WW WWW 

I 

M ff« 

« INIT »f~ 

fi If 



ftf««fMtfM 

— >»INIT(M5) » 



I 

ft SET UP COLUm COUNT ft 
ftTO mo KIOJ COLUMN ft 
ft ft 
ftftftftftftftftftftftftftftftftftftftftftftft 

I 

ft SET BUFFER WOgE^, ft 
ftftftftftftftftftftftftftftftftftftftftftftft 

I 

««ft«««Mft«ftftftftftftft««ftftftft 

ft SET RETURN PC t PS ft 
« FOR ILLEGAL IN5TR. ft 

ft traTTloc. iO) ft 

»i«fftftftftftftftftfftftftftftft»ftftft 

I 

»ftftft«ftftftftft«ftftftftft« 
ft READ A ft 
ft CARD ft 
ft f 
ftftftftftftftftftftftftftftftftft 
I 



/ DID UE GET AN 
/ ILLEGAL 
/ INSTRUCTION TRAP' 



««««ft«i«Xft«M««««»ft« 

/ REPORT / 

ERROR / 



I 

fftft««ftft«»iftft»«f«* 

« RESET STACK « 
ft FROM ILLEGAL « 
« INSTR. TRAP ♦ 
ftMMftftftftftftftftftftft* 

I< 

fftft««ftftft«ft«*ftft«ft« 
« RESTORE TRAP- « 
-ft CATCHER FOR # 
» LOCS. 10 & 12 * 



\N0 

\ >/ 

\ / 



/ 



COii/COaO CARD REPOCR DIAGNOSTIC 
OATA RELIABILITY TESTING 
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SEO 003S 



************ 

«0AT5T(1&) ft UNPACKED MODE EXANPLE 
ftftftfftffftftftftf 
I 

ftftftftftt«ftft«««««ftftftftftft 

/ TYPE LEAD-IN / 
/ POSITIONAL / 
/ HESSAGE5 / 
ftftftftftftftftftftftftftftftftftftft 

I 

ftftftftftftftftfftfMftftftftftftftftftft 

ft INITIALIZE CARD ft 
ft COUNT AND COLUHN « 
ft COUNT TO ZERO ft 
ftft«*ft««ftft«ftftlfft«ft«ft«ftft« 
I 



/ ARE UE TESTING \YE5 
/ A \ — 

/ BINARY DECK ? v 

ftftftftftftftftftftftftftMftftftftftftXft 

ft LOAD ALPHANUMERIC ft 
ft DATA TABLE ft 
ft POINTERS ft 

ftftftftftftftftftftftftMftftftftftftftftft 

I< 

ftftftftftftftftftftftftftftftftftftftftftftftftft 
ftft ftft 

ftft INIT ftft- 

ftft ftft 
ftft«ft«ftft«««ft«««ftft«ftftftftftftft« 

I 

ftftftftftftftftftftftftftftftftftftftftftftft 
« SET UP RETURN ADDA. * 
ft FOR INTERRUPT ft 
* SERVICING « 
ft«««ftf«fft««M»ffft««ft«ft«ft 
I 

ftftftftftftftftftftftftftftftftft 
ft SET CARD * 
ftSIZE AND WORK- ft 
ft ING OFFSET ft 
ft«ftttft«ftft«ftftft«ftft«ft 
I 

ftftftftftftftftftftftft 

CDATST1(18)« 



ftft«ftftftftftftftftftftftftftftftftftftft« 
ft ft 
->ft LOAD BINARY DATA ft 
ft TABLE POINTERS « 
ftftftftftftftftftftftftftftftftftftftftftftft 



ftftftftftftftftftftftft 
■>ftINIT(45) ft 
ftftftftftftftftftftftft 



B04 
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SEO 0040 



«0ATST1(17)» 
I 

«5ET COL. COUHT r 80. « 
« SET GPR r RO FOR » 
« AOOR. SELECTION * 
*********************** 

I 

* ENABLE * 

* INTERRUPTS * 

* * 
*********************** 

1 

/ \N0 

/ DO ME WANT PACK \ 

/ NODE' \ 



« SET UP FOR » NO 

» ACCEPTANCE OF «< 

» PACK NODE « 

I 



I YES 



************ 

«BKGNO *- 
************ 



/ MAS INAGE nOOE N 
-/ SELECTED ALSO' \ 
/ \ 

I YES 

>I< 

* READ * 

* ft * 

* CARD * 
***************** 

>I( 



/ HAVE UE \N0 
/ FINISHED READING \- 
/ A CARD YET ' \ 



I YES 



IS CONTROLLER 
READY ' 



I YES 

I< 



\N0 / REPORT / 
\ — >/ ERROR / 

\ / / 


I 



«WHHHIHtf*«NO / 
«ISR(1S) »< / 



HAD UE SELECTED \YES 
DATA PACK MODE' \ — 



-->»PSR » 
f«»«««ftft«ftft« 



C04 
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SEO OOtl 



«««ft««f«f«ftft 
»ISRLP *' 
************ 



************ 

»ISRRT »- 



»ISR(18) * 
************ 
I 

ANY ERROR 
BITS SET' 



VES 

\- 
\ 



I NO 



/ IS COLUMN COUNT \N0 
' OK' I.E. ZERO \-- 

/ \ 



I YES 

I< 



-->»ISRER(22) » 



««f «««»»»««««««»«««« 

/ REPORT / 
->/ ERROR / 
/ / 
«««»#»««««««««««««« 

I 



/ IS BUFFER(COA) 
/ CONTENTS OK' 



\N0 
\— 
\ 



I YES 

I< 

ft««»»««f ««««»«««« 
« SET UP A ft 
ft COLUMN ft 
ft COUNTER ft 
ftftftftftftftftftftftftftftftftft 

>I 

ftftftftftftftftftftftftftftftftft 
ft BEGIN TESTING ft 
ft DATA FOR ft 
ft CORRECTNESS ft 
ftftftftftftftftftftftftftftftftft 

I 



ftftftftftftftftftftftftftftftftftftftft 
/ REPORT / 

->/ ERROR / 
/ / 
ftftftftftftftftftftftftftftftftftftft 
I 



/ ANY PIECE 
/ OF DATA WRONG' 



\YES 
\— 
\ 



■>I NO 



/ HAVE UE \YES 
/ CHECKED ALL THE \ — 
/ DATA' (TABLE) \ 

I NO 

I< 

«ftftftftftftftftftftft 
ftDATSTS ft 



Iftftftftftftftftftftft 
■>ftISRDE(21) ft 
ftftftftftftftftftftftft 



ftftftftftftftftftftftftftftftftft 

ft RESET POINTER » 
->ft TO BEGINNING ft 
ft OF TABLE ft 
ftftftftftftftftftftft«ft4:ft«« 
I 



DD4 
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SEO 0042 



«SRETRN(20)« 
§*********** 

I 

« CALCULATE NEU SIZE « 
» OF COLUMNS TO BE » 
« READ * 

f iff f»f«f«itf §§«««««*#« 

I 

fffffffffffffffffffffff 
i RESgJ CARD READER « 
« li?FERS AS PER » 
ft PRESENT POSITION ft 
ffffftffi«««M«fMffft««ft 

I 

ffftftfffffffftfffftf 
ft READ NEXT ft 
ft CARD ft 
ft ft 
ft«ftftft««M«ftftftft»ftft 
I 

ffffffffffff 

ftBKGND ft 
ftffftftftftftftftftftft 



ffffffffffff 

»DftTST2 f 
ffffffffffff 

/ HAVE UE REACHED WES 
/ THE END OF THE \ — 
/ MEMORY BUFFER ' \ 

I NO 

ffffffffffff fffff 
f UPDATE f 
f COLUMN f 
f COUNT f 
ffffffftftftftftftftfffff 
I 

ffff«f«fffffftftfff 

f UPDATE TABLE « 
f OFFSET FOR f 
fCARD tl IN DECKf 
ffffftftfftfffffffff 
I 

/' HAVE UE LOOKED \N0 
/ AT LAST COLUMN OF \ — 
/ DECK ' N 

I YES 
ffffffffffffftffff 
f STEP UP TO f 
f NEXT ft 
ft CARD * 
fttffftftftftftftftftftftftfft 

I 

ffffftfffftftftftftffff 

f UPDATE TABLE # 
ft POINTER FOR » 
ft NEXT CARD ft 
ftfftftftftfftftftftftftftftftft 

I 

ffffffffffff 
ftlSRLP ft 



fffffffffffffffff 
* STEP UP TO f 
->f NEXT CARD * 
f f 
fffffffffffffffff 
I 



/ IMAGE MODE \N0 
/ SELECTED ' \- 

/ \ 

I YES 

I< 

fffffftffftftftf 
fSRETRN(20)ft 
ffffffffffff 



fffffffffffffffff 
f SET UP FOR f 
->f PACKING MODE f 
f f 
fffffffffffffffff 
I 



ffffffffffff 

->fISRLP ft 
fffftffffftftff 
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SEQ 0043 



************ 
«ISRDE(1S) « 

I 

/ is'this thE 
/ first card ' 



WES 
\ — 
\ 



I NO 
I<— 



# CALCULATE # » RESET CARD » 
-->»PRESENT POSIT- *—)* COUNTER i 
»ION OF IMPORT. * * (CDCNT) * 
***************** ***************** 

I 



/ INHIBIT ERROR \YES 
/ PR'NTOUT ' \ — 

/ \ 

rso 

*********************** 

* TYPE OUT HEADING, * 

* DECK. CARD COUNT, & » 

* c6lunn NUHBER * 
*********************** 

1 
I 

* TYPE OUT THE "HAS" » 

* AND "SHOULD BE" « 

* DATA * 
«««««««»««««««««««««««« 

I< 



HALT 
ON 
ERROR ? 



NYES 
\ — 
\ 



I NO 
#ISRRT * 



***************** 

* * 

-> # HALT * 

* * 
***************** 
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SLQ OOHH 



************ 
ftI5RER(19) * 
************ 

I 



************ 
«0ATRST(22)« 
************ 

I 

***************** 

* RESET STACK * / 

* POIMTER FROM * / 

* INTERRUPT * / 
»««»«»««««««*«««« 

I 

#DATST(17) * NO / 

ftftft«««ff««f« / 

I / 

V 1 YES 
******************** 

/ IS CARD READER \YES / REPORT / / 
/ ERROR (BIT14) \~>/ ERROR / / 
/ SET ' \ / / / 
******************* 

I NO I I YES 

************ — >I I 

«ISRE3 « V< / DID UE JUST \YES 

************ / CHECK LAST CARD' \ — 

ff«««»««ff««««»«ff«««ff« / \ 

/ FND OF FILE \YES / REPORT / 

/ ERROR ' \~>/ ERROR / I NO 
/ (M1200 ONLY) \ / / ******************** 
******************* / PE9QR.1 / 

NOK / ERROR / 

******************** / / 

/ \YES / REPORT / ******************* 



\N0 

IS BITIB SET' \-- 
\ 

rss 

IS CARD READER n 
OFF-LINE' \ 



IS CARD READER \N0 
ERROR (BITI4) \- 
SET ' V 



/ 



DATA ERROR ' 
NOK 



\— >/ ERROR / 
\ / / 
— ******************* 



1 

************ 
fDflTRST(22)» 
************ 



******************** 

/ \YES / REPORT / 
/ DATA LATE ERROR' \~>/ ERROR / 
/ \ / / 
******************* 

I NO I 



/ REPORT / 
->/ ERROR / — 

/ / 



******¥***** 

■)»0ATRST(22)« 



******************** 
/ REPORT / 
->/ ERROR /— 

******************* 



************ 
■>»ISRNC » 
************ 



************ 
■>»ISRE3 * 
************ 



I<- 



NON-EXISTANT 
MEMORY ERROR' 



NO I< 

************ 

»DATST3(22)» 



******************** 

\YES / REPORT / 
\— > / ERROR / 
\ / / 
******************* 

1 



************ 
»DATST3(22)j: 
************ 
1 

/ ARE ANY BIT/S 
/ FROM BIT0<» THRU 
/ BITIM SET ' 

I YES 

I< 

************ 
»0ATRST(22)» 
************ 



******************** 
\N0 / REPORT / 

\ — >/ ERROR / 
\ / / 

******************* 

I 



GD4 
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SEO OOMS 



*'DATA'RELl5lLITY"TiiTING f5r PACKED HODE HILL 

************ ************ 
START AT fDATST(17) * & BRANCH OFF TO»PSR » 
************ ************ 



UHERE DATA MILL BE HfWDLEO AS OUTLINED IN 

************ 
SECTION STARTING AT fISR(i9) »HITH ONLY ONE 

************ 

EXCEPTION: DATA IS HANDLED USING BYTE CONSTRUCTION 
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SEO 004b 



»T5T33«(24)* 
I 

/ Wfl5 THERE fi \N0 
/ OflTfl LATE \~ 
/ ERROR ' \ 

I YES 

I< 



************ 
«ER1200(3S)« 
************ 

>I 



STMT ADDRESS = 250 



/ ANY BITS SET \YES 
/ IN STATUS REG. \— 
/ THAT SHOULDN'T BE' n 

I NO 

I< 

»TST34(25) » 
************ 



************ 
*ER12CD »■ 
************ 
******************** ************ 
/ REPORT / tTST33 » DATA LATE 

->/ ERROR / 'Vk*****Vk*** 

/ / I 

«»»«««»«««««««««#«« *****Vk*Wk*VkVk******Vk* 
I ** M 

** INIT « >»INIT(45) » 

** ** ************ 

**************'k*Vk** «f«««fft«ftf«ftft«M«fttft««ft)cf 



■> / REPORT 
/ ERROR 
/ / 
******************* 

1 



/ I 
' Vk*Vk*VkWVk******** 
/ ASK USER TO RE- / 
/SPONO ACCORDINGLY / HALT & SINGLE BUS CYCLE 
/ / 
******************* 
I 

*************'Vk******** 
»SET UP A COLUMN COUNT* 
« AND A BUS ADDRESS « 
* REGISTER LOCATION * 
*********************** 
1 

***************** 

* HALT AUAITING * 

* USER TO PRESS * 

* "CONTINUE* » 
***************** 

I 

««f«f«fff»fff**fft 

* START READING * 

* A CARD * 

* * 
***************** 

I 



/ 



IS CONTROLLER 
READY ' 



\N0 
\— 
\ 



I YES 
I< 



»«if ««*«»«»**»«#*««« 

/ REPORT / 
-)/ ERROR / 
/ / 
******************* 
I 



ft««««*«««*««YES 

»TST33fl(24)*< — 



IS ERROR BIT15 
SET ' 



******************** 
\N0 / REPORT / 
\ >/ ERROR / — 



************ 
->*TST33A(24)* 
************ 



104 
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SEO 00H7 



tTST3MR * 
«#««#««§«««« 

/ DID TRRNSITION \N0 
/ TO ON-LINE OCCUR' \ - 

/ \ 

I< 



ERROR ♦ OFF-LINE 



/ REPOR. 
->/ ERROR 



/ IS OFF-LINE WES 
/ CONDITION \ - 
/ PRESENT ' \ 



I NO 

I< — 



/ IS ERROR Bins \N0 
/ SET ' \ - 

/ \ 

I YES 

I< 



************ 
»TST34(24) » 
************ 
******** I 

/ «« ** ************ 

/ / ** INIT »» >«INiT(45) * 

»«««««««««««««#«««« f» »» »»ffffff»f#f 

I ************************* 

******************** 

/ ASK USER TO RE- / STOP & CONTINUE 
/SPOND ACCORDINGLY / 
/ / 
******************* 
I 

ffffff«««ft«fff«« 
f HALT AUAITING « 

* USER TO PRESS * 

# -CONTINUE" « 
***************** 

I 



/ REPORT / 

->/ ERROR / 

/ / 

I 



«ff«««f»*f «#««§««««« 

/ REPORT / 
->/ ERROR / 
/ / 
*** i *************** 
I 



/ ANY BITS SET IN \YES 
/ STATUS REG. THAT \ - 
/ SHOULDN'T BE ' \ 

I iio" 

I< 

«TST35(26) * 



******************** 

/ REPORT / 
->/ ERROR / 

/ / 

I 



IS OFF-LINE \N0 
COWDITION \- 
PRESENT ' \ 



I YES 
I< 



/ REPORT / 
->/ ERROR / 

/ / 

I 



IS ERROR BIT15 
SET ' 



/ 



\N0 / REPORT / 
\ — >/ ERROR / 

«»«ft»ift«fttft«««««f«i 

I 



I YES 

I< 



/ ANY BITS SET IN \YES / REPORT / 
/ STATUS REG. THAT \ — >/ ERROR / 
/ SHOULDN'T BE ' \ / / 

««ft««»f»ft««««»««4«* 

I NO I 

I< 

******************** ***************** 
RESET & CONTINUE / ASK USER TO RE- / * HALT AWAITING « 

/SPOND ACCORDINGLY / >» USER TO PRESS * 

/ / # "CONTINUE" « 



************ 
•>«TST34A * 
************ 



J04 
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SEO OQMe 



«TST35fl(2b)» 
I 

/ ARE ANY BITS SET\YES 
THAT SHOULDN'T \ — 
QE ' \ 

I NO 

I< 

• SET RET'JRN PC & PS » 
» FOR WHEN AN INTER- * 

♦ RUPT OCCURS » 

I 

• SET CPU TO » 

#PRIORITv LEVEL » 

» 0 « 

I 



************ 

«TST35(25) « 
************ 

I 

*************i******************************* 

/ REPORT / «« »« 



OFF-LINE TO ON-LINE INTERRUPTS 



-> / ERROR 

/ / 

I 



DID AN INTER- \N0 
RUPT OCCUR ON \" 
READING A CARD ' \ 

I YES 

# RESET STACK * 
» POINTER FROM » 
t INTERRUPT * 
**************,*** 
I 

IS CONTROLLER \N0 
READY ' \— 

\ 

I YES 

I< 

************ 

»TST35B(27)« 
************ 



***************** 
* HANG Ai4AITING * 
•>» AN » 
f INTERRUPT * 
***************** 



** INIT «»- 

** ** 
************************* 

I 

i««»»«««««»f »«««««»«««« 

* SET RETURN PC & PS » 

* FOR UHEN m INTER- * 

* RUPT OCCURj * 
******i **************** 

I 

» SET CPU TO « 
♦PRIORITY LEVEL » 
« 0 » 

«»ftft«ftftf ««««««««« 

I 

******************** 

/ ASK USER TO RE- / 
/SPOND ACCORDINGLY / PRESS STOP 

/ / 

I 



■>«INiT(45) * 
«»«««««««««« 



/ DID AN INTER- 
' RUPT OCCUR ' 



I NO 



\YES / REPORT / 
\ — > / ERROR / — 
\ / / 
******************* 



******************** 

/ REPORT / 
■> / ERROR / 

/ / 

« V '.«*«»««*««««#««* 

I 



IS OFF-LINE 
CONDITION 
PRESENT ' 



\N0 
\ 



I YES 



««««««««««««««§«« 
« HANG HERE * 

* WAITING FOR * 

* OFF-LINE * 
***************** 



IS CONTROLLER 
READY ' 



REPORT / 
ERROR / 



\N0 / 
\ — > / 
\ / / 

««««««««««««««««««« 

I 



************ YES 

»TST35fl(2b)«< 

************ 



1 YES 

I< 

««ft««««««ft««ft«f«ft««« 

IS ERROR BIT 15 \N0 / REPORT / 

SET ' \ >/ ERROR / — 

\ / / 



***************** 

* RETURN FROM * 
■>« INTERRUPT * 

* * 
***************** 



Mftt«f«fftfi« 

-)»TST3SA(26)« 
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SEQ OOsq 



#TST3SC(27)« 
************ 

1 

***************** 

* RESET STACK « 
» POINTER FROM * 
» INTERRUPT » 
***************** 

I 

«««f«f«ft«««««»«i«««f 

/ DID TRANSITION \N0 / REPORT / 

/ TO ON-LINE OCCUR' \ >/ ERROR / 

/ \ / / 
««f«««f«M««««ft«ft#« 

I YE5 I 
I< 

««»««««««««ft«ftft««Mf 

' IS OFF-LINE WES / REPORT / 

/ CONDITION STILL \ >/ ERROR / 

/ PRESENT \ / / 
******************* 

I NO I 

I< 

******************** 

/ IS ERROR BIT 15 \N0 / REPORT / 

/ SET ' \ >/ ERROR / 

/ \ / / 
******************* 

I YES I 
I< 

******************** 

/ ARE ANY BITS SET\YES / REPORT / 

/ THAT SHOULDN'T \ >/ ERROR / 

^ BE \ / / 
«f«ftf tiff »««§«««««« 

I NO I 

I< 

************ 
»TST3t)(28) * 
************ 



************ YES 

*TST35C(27)»( 

************ 



************ 

«TST35B(2C>)« 
************ 

1 

i««H«««»ftft«««*»«f«« 

/ OFF-LINE \N0 / REPORT / 
/ CONDITION \ >/ ERROR / 

/ PRESENT ' \ / / 


I YES I 

I< 

««ft«»««»«ft«ft«««i««ft« 

/ IS ERROR BITiS \N0 / REPORT / 

/ SET ' \ >/ ERROR / 

/ \ / / 
««»«««»««##»««««« 

I YES I 
I< 

««««»ft««ff««iftfftft«*« 

/ ARE ANY BITS SETnYES / REPORT / 

/THAT SHOULDN'T BE '\ >/ ERROR / 

/ \ / / 
ft»««««««ft«««««»«»ift 

I NO I 

I< 

* SET RETURN PC i PS « 
» FOR HCN AN INTER- » 

* RUPT OCCURS » 
»«ft«f »««««««««*««««««*« 

I 

***************** 

* SET CPU TO » 
♦PRIORITY LEVEL * 

* Q * 
***************** 

I 

******************** 

/ ASK USER TO RE- / PRESS RESET 
/SPOND ACCORDINGLY / 
/ / 
******************* 
I 

«ft«ff»«ft»«f«««»«i 

/ DID AN INTER- \NC » HANG AWAITING * 

-/ RUPT OCCUR ' \ >» INTERRUPT * 

/ \ * * 



L04 
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SEQ OOSC 



§«««»»*««*«« 

tTST3bA(28)« 

I 

» SET RETURN PC & PS » 
♦FOR UHEN AN INTERRUPT* 

* OCCURS ♦ 

I 

« SET CPU TO # 
•PRIORITY LEVEL * 
« 0 i SET "IE" » 

I 

»•«««««««•««*«««»««« 

/ ASK USER TO / 
/RESPOND ACCORDING-/ 

/ LY / 

I 

/ DID AN INTERRUPTNNO 
OCCUR ' \— 

I YES 
***************** 
* RESET STACK » 
» POINTER FROM * 
« INTERRUPT « 
##««««««*«««««««« 

I 

» SET RtTURN PC & PS » 
»FOR UHEN AN INTERUPT » 

* OCCURS ft 
fttftftftftftftftftftftftiftftftftftftftfft 

I 

ftfftftftftftftftiftftiftftftft 

ft SET CPU LEVEL « 
ft TO 0 & INIT. ft 
ftCOL.CNT & ADDR.ft 
ft**ft*«««»ft«««*ft«ft 
I 

/ DID AN INT£RRUPT\NO 
/ XCUR ON ATTEMPT ^ — 
' TO READ A CAPO ' \ 

i YES 

ftTST%B(2e)* 



INPUT HOPPER EMPTY 



RESTORE CARDS 
& RESET 



ftftftftftftftftftftftftftfttftft 
ft HANG AWAITING ft 
■>ft INTERRUPT ft 
ft ft 
ftftftft««ftft«ftftft«ftftftft 



ftftftftftftftftftftftftftftftftft 
ft HANG AUAITING ft 
•>ft INTERRUPT ft 
ft ft 
ft***«ftft««ftft«««««« 



ftftftftftftftftftftftft 

«TST3b(27) ft 
ftiftfftftiftftftftft 

I 

ft«« «ftftftft«ft«ft«*ft««««ftftft««« 
** ftft ftftftftftftftftftftftft 

ftft INIT «» — >ftINIT(45) ft 
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/ ERROR BIT14 SET' \ >/ ERROR / 

/ \ / / 

ftftftftft«fttrftftftftftftftftftftft 

I NO I 
I< 

«»ft««ftft»ftftftftft«ftftftftftft 

/ \YES / REPORT / 
/IS ERROR BIT15 SET \ >/ ERROR / 

/ ' \ / / 

ftftftftftftftftftftftftftXftftftftft 

I NO I 
I< 

ftftftftftftftftftftftftftftftftft 

ft SET UP RETURN ft »ftftft«ft««ft««« AN INTERRUPT (2ND) FROM 
ftAOOR. TO TINTIAft »TINTIA(35)ft "SECN" AREA WILL GO TO 
ftON NEXT INTER, ft ftftftftftftftftftftftft "TINTIA" 
ftftftftftMftftftftftftftftftft 
I 

ftftftftftftftftftftftft 
ftSECN ft 
ff«ft««iM««ft 
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************ 
»TST42C(35)» 
*'i********** 
I 

ft«««««fti«««ft«ft««ft 

/ HAS TNANSI TION \N0 * HflMC MMIl ING « 

/ TO OH-LINE OCCUR- \ >« TRANSITION * 

/ RED » \ » « 
«««««««{;««««««««« 

I YES 

««««««fM»««f«««»« 

/ IS END OF FIlE WES / REPORT / 

/ CONDITION PRESENT \ > ERROR / 

/ » \ / / 
«»««««««««§«««««««« 

I< 

I 

************ 
«TST43(37) » 
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MSTH3fl(37)» 
#««»««««#»«« 



READ CHECK 



I 



IS CONTROLLER 
READY ' 



I YES 



««*«##««#« ■■**»*** 
\N0 * UAIT FLR * 

\ >« IT » 

\ » » 
i«i«*ft««ff 



******************** 
/ REPORT / 
ERROR / 



\N0 
\ > 



I 



13 ERROR BITIS 
SET y 

I "si 

I< 

««««««««f««««t«««««t 

IS CARD READER VNO / REPORT / 

BITIM SET ' \ > / ERROR / 

\ / / 
ft««i««ftftft«f««iift««« 

I YES I 



I<- 



************ 

»TSTM3(3£») » 
************ 

I 

************************* 
ff ** ************ 

** INIT ** >»INiT(M5) * 

«« ««««!««««««* 
************************* 
I 

******************** 
/ ASK USER TO RES- / RIP CORNER OFF CARD 
/ POND ACCORDINGLY / AND RESET 

/ / 

********ir********** 

I 

«ft«t#«fft««««««««i 

/ IS OFF-LINE VNO « HANG AWAITING « 
/ CONOITON PRESENT \ — >» OFF-LINE » 
/ ' \ # * 

t«ft««««««ft««Mftftft 

I YES 



/ HAS TRANSITION \N0 » * 
/ TO ON-LINE OCCUR- \ — >* UAIT FOR IT # 

/ RED ' \ » * 



I YES 



/ IS CONTENTS OF \N0 / REPORT / 

/ STATUS REGISTER \->/ ERROR / 

/ = 100210 ' \/ / 
««««««««««»«««««*«« 

I YES I 

I< 

*********************** 
********i.*********** « SET UP COLUfft COUNT * 
/ REPORT / * AND BUS ADDRESS * 
> / ERROR / * REGISTER * 

/ / *********************** 

******************* I 
I YES I ft 

I< fTSTM38 »< « READ A » 

#*««««*««««« * CARD * 

« * 

itiiiiiiiftft* 

*TST43C(38)« I 
••HMitWM 

*TST43A(37)* 



/ IS OFF-LINE \N0 
/ CONDITION PRESENT \ > / 

/ 7 \ / 



******************** 

/ REPORT / 



ERROR 



/ 



I YES 
K-— 



/ HAS ECO 114 BEENNNO 
/ INSTALLED ON THIS \- 
CARO READER ' \ 



«««*««««««««««««««« 

I 



•>«TST43B » 
************ 



I YES 



/ IS READ CHECK \N0 
■ INDICATOR PRESENT \- 
IN DATA BUFFER ' \ 
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************ 
»TSTM3C(37)» 
************ 
I 

««ftftftftftftft*ft*t«****»* 

/ ARE fiNY EXTRA WES / ^REPORT / 

/ BITS SET IN "CDS" \ > ERROR / 

/ THAT SHOULDN'T BE' \ / / 
******************* 

I NO I 

I< 

««««««««««««««««««*«««* 

» SET UP RETURN PC & » 
«PS FOR WHEN AN INTER-* 
* RUPT OCCURS « 
ft«f«ift«f«««ff 

I 

ftfftf«ff 

»SET CPU TO LEVEL 0 i » 
» ENflBLE INTERRUPTS » 
ft ft 
ftftftftftftftftftftftftftftftftftftftftftftft 

I 

ftftftftftftftftftftftftftftftftftftft* 

/ASK USER TO RESP- / RESTORE ^CARDS 
/ OND ACCORDINGLY / & RESET 
/ / 
ftftftftftftftftftftftftftftftftftftft 
I 

«ftftftftftftftftft««ftftftftft 

' HAS THE INTER- \N0 » WAIT FOR * 
/ RUPT OCCURRED' \ — >* IT » 
/ \ ft » 
«ftftft««*ftft«ftft««««ft 

I YES 
ftftftftftftftftftftftftftftftftft 
ft HALT AUAITING ft 
ft USER TO PRESS ft 
ft CONTINUE ft 
ftftftftftftftftftftftftftftftftft 

I 

ftftftftftftftftftftftftftftftftft 

ft RESET STACK » 
ft POINTER FROM « 
ft INTERRUPT ft 
ftftftftftftftftftftftftftftftftft 

I 

ftftftftftftftftftftftft 
ftER12CD ft 
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* ERROR FUNCTION TESTING OF CARD READER MODELS MiOOO OR 
M2C3 IS IDENTICAL TO THAT OF AN MlSOO AS OUTLINED 



STARTING AT#ER 1200(24)* WITH ONLY ONE EXCEPTION; 
************ 

***§******** 

»TST42(34) « IS NOT EXCUTED [START ADDRESS - 2101 
************ 
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************ 

************ ftCKSAHE « START ADDRESS = 240 

•SANE 1(40) » »##»»»»»«»»» 

************ I 

I »#««f«««»«ff«««««»«ft 

/ ASK USER TO LOAD / 

/ WAS IMAGE MODE WES / PATTERN INTO SHR / 

' BEEN SELECTED n 1 / <11:0> / 

ALSO 7 N I «««««f««f««ff«««f«» 

I I 

I NO I Ift««fii«ft«ft«««ft«« 

*********************** I « HALT AUAITING * 

»SET PACKING MODE IN- » I » USER TO PRESS * 

• DICATOR IN STATUS i I * "CONTINIE" » 

• REGISTER * 1 ft»««ft««f««M««««« 
******************,**** V I 

I ************ *********************** 

l< #CKREAD * »STORE PATTERN SELECT-* 

***************** ************ «ED AND MASK OFF BITS * 

* INTITIALIZE * #12 THRU IS * 

* COLUMN COUNT * ««««««*«««««»««««»««««* 

* TO ZERO * I 
***************** ******************** 

I / ASK USER TO SET / 

*»**t«**«»ft»««««ft«««««« / DESIRED S14ITCH / 

» SET UP BUFFER ADDR. * / REGISTER OPTIONS / 

• TO "BUFBEC" & COLUMN * fftf««»»««W«««««»»« 
•COUNT TO 120(8) COLS.* I 
*********************** ***************** 

I ft HALT AUAITING ft 

••ft*fftft«ftftf««ftftft« ft USER TO PRESS ft 

ft START READING ft ft CONTINUE ft 

ft A CARD ft ftftftftftftftftftftftftftftftftft 

ft • ftftftftftftftftftftftft I 

••••••ftft#*#««#*«* ftCKSTRT ft >I 

I ftftftftftftftftftftftft ftftftftftftftftftftftftftftftftftftftftftftftftft 

•^••>f*ftftftftftft«ft««f ftft ftft ftftftftftftftftftftftft 

ft UPDATE THE ft ftft INIT ftft >ftINlT(45) ft 

* CARD COUNT ft ftft ftft ftftftftftftftftftftftft 

* ft ftftftftftftftftftftftftftftftftftftftftftftftftft 
ftft*ft*ftft«f«ft«»ft«ft* I 

I ftftftftftftftftftftftftftftftftftftftftftftft 

«ftft«ftftftft«ftftftftftftftft ft CLEAR CARD COUNT # 

^ \N0 ft HANG AUAITING ft ft (TOTCRO) & ERROR ft 

IS CONTROLLER v >ft CONTROLLER ft ft COUNT (TOTERR) « 

/ READY \ ft READY ft ftft««ft««ftftft«ft««ftft««ftftftftft ftftftftftftftftftftftft 

»«ft««««ft«««ft««ftftft I< ftCKLOOP ft 

I YES ftftftftftftftftftftftft 

ft*ftft«tftftftftftft / HAS PACK MODE ^NO ftftftftftftftftftftftft 

»SAHE2(41) ft / BEEN SELECTED n >ftCKREAD ft 

ftftftftft«ftftft«ftf / V ftftftftftftftftftftftft 

I YES 
ftftiftftftftftftftftft 

«SAnEl(40) ft 
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CEO 00b3 



/ El 



«SmEe(HO) « 
«ft«fftftfMftM 

I 



HAVE AN 
ONOITION' 



NYES ftf««»«»f«ft«« 

\ >«CK£RR(H2) # 



I NO 



/ \N0 
/ DOES DATA MATCH' \- 

/ \ 



************ 
»CKL0P3 «- 
************ 



■>I YES 



***************** 
* GO BACK TO ft NO 

ft LOOK AT ft 

ft NEX1 COLUMN ft 
«««#«*«««ftftft«»ft«ft 



/ \N0 
/ PACKED MODE ' \- 

/ \ 

1 YES 
ftftftftftftftft^ftftftftftftftft 
ft UPDATE THE ft 
ft COLUMN ft 
ft ft 
ftftftftfftftftftftftftftftftftft 

I 

/ HAVE WE LOOKED \ 
->/ AT ALL 80(10) \ 
/ COLUMNS » \ 

ftftftftftftftftftfttft 

ftCKLOOP ft 
ftftftftftftftftftfft* 



ftftftftftftftftftftftft 
■>»CXFAlL(43)ft 
ftftftftftftftftftftftft 



-I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
V 



IMAGE MODE 
PATH 



«ft«f«ftftft«ft«ft 
ftCKL0P2(41)ft 
************ 

I 

ftft«ftftftftftftftftftftftft»ftftftftftftft 
ft GET COLUMN CONTENTS ft 
ftANO MASK OFF BITS 12 ft 
ft THRU 15 ft 

ftftftftftftftiftftftftftftftftftftftftftftft 
I 

/ \N0 f«ftftiift«ft««i 

/ DOES DATA MATCH' \ — >ftCKFflIL(43)f 

/ V ftftftftftftftftftftftft 



I YES 

ft«ftftftftftftftftftft>«ftCft 

ft UPDATE ft 
ft COLUMN ft 
ft COUNT ft 
ftftftftftftftftftftftftftftftftft 

I 

/ HAVE iS. LOOKED \N0 
/ AT ALL 80(10) \-- 
/ COLUMNS ' \ 

lYEi' 
ftftftftftftftftftftftft 

ftCKLOOP ft 



ftftftftftftftftftftfffftftftftft 
ft GO BACK TO ft 
■>ft LOOK AT NEXT » 
ft COLUm ft 
ftft«««ft««ft««ftftftftM 
I 

ftftftftftftftftftftftft 

ftCKL0P2(Hl)ft 
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SEO :ob4 



« HANG AWAITING « NO 

f TRANSITION » 

« * 



««§««««««««§ 

«CKERR(41} « 
«««««««««««« 

I 

/ IS OFF-LirC CON-\NO 
/ DITION PRESENT' \ - 

/ \ 

I YES 

« RING * 
ft Q i 

ft DING ft 
ftftftftftftftftftftftftftftftftft 

I 

/~ARE~ic'GiTTING \ 
->/ A TRANSITION TO \ 
/ ON-LINE ' N 

I YES 
ftftftftftftftftftftftft 
ftCKSTRT ft 
ftftftftftftftftftftftft 



/ i4AS THERE A 
■>/ DATA ERROR ' 



\YES 
\ — 
\ 



>I NO 

ftftftftftftftftftftftftftftftftftftftft 
/ REAL LIVE / 
/ DEADLY ERROR ! / 
/ / 
ftftftftftftftftftftftftftftftftftftft 
I 

ftftftftftftftftftftftft 
ftCKLOOP ft 
ftftftftftftftftftftftft 



-I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
V 



YES / UERE UE \ 
/ ATTEMPTING PACK \ 

/ nooE ' \ 



NO / UERE UE ATTErff>T-\ 
/ INC INAGE HOOE» \ 



I YES 
ftftftftftftftftftftftft 

ftCKLOPS ft 



ccii/co2o cam rcaocr oiAcrtosric 

PR XJVm TO LOOP ON SINGLE DATA PATTERM 



••««««««#««« 

»FflILl(H3) » 
f*fttif**«t«tt 

I 

««»««»«•««««««««« 

/ SYES» » 
/ HALT on ERROR » v->» HALT » 
/ \ « * 
ttff«ffftffMMi«HHHI 

I m 

««««««««§«««««»«« 

i UPDATE COLUm * 
•COUNT FORNEXT i 
* COLUMN LOOKUP « 

I 



/ HAVE UE LOOKED \YES «ftft«««ffHM 

/ AT ALL 80(10) v >tCKLOOP • 

COLS. ^ V ifftflMiiMM 



I NO 



/ \N0 

ARE WE DOING \ >»CKL0P2(H1)* 

PACKED NODE ^ \ ««tti»i«f«i«i 



I YES 
iCKL0P3 * 
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************ 

tCKFAIL(Hl)» 
************ 
I 

***************** 
•UPDATE TOTAL • * 
tOF ERRORS FOUND* 
ft (TOTERR) ft 
«ffft«ftftM«Mftftftftft« 
I 

/"liSiilT ERROR 
/ PRINTOUT » 



/ 



\YES 
\ — 

\ 



ftftftftftftftftftftftft 
•>»FAIL1(H3) ft 
ftftftftftftftftftftftft 



I NO 

ffftfttftftftftftffftftftftfftftftftft 
/ TYPE COLUMN / 
/ HEADINGS / 
/ / 
ftffftftftftftftfttftftfftftftftffft 
I 

ftftftftftSftft*ft»«ftXftftft 

iSTLP UP coicm ft 

* COUNT FOR ft 
ft ERROR REPORT ft 
ftftiftftftftftftftftftftftftftft 

I 

ftftftftftftftftftffftftftftftftftftftft 
/ TYPE COLUMN IN / 
/ MHICH ERROR UAS / 
/ DETECTED / 
ftftMM««ftfftftftftftftftftft 
I 

ffftftftftftftftftftftftftftftftft 

ft DROP COLUMN » 
ft COUNT BACK TO ft 
•ORIGINAL VALUE • 
««ftft«#ft««ftttf^ftft*« 
I 

*********************** 

/ ARE UE DOING \YES • TYPE INCORRECT BYTE » 
/ PACKED MODE » \— >* VALUE. CARD NO. & » 
/ \ ft TOTAL NO. OF ERRORS * 



I NO 

ftftftftftftftftftftftftftftftftftftftftftftft 
ft TYPE INCORRECT UORO ft 
ft VALUE, CARD NO. & * 
ft TOTAL NO. OF ERRORS » 
ftftiftftftiftftftftiftft«ftftftftftftft« 

I< 

tftftftftftftftftftftft 
•FAIL1('43) ft 



ftftftftftftftftftftft 



ftftftftftfftftftftft 



C011/CD2g CfWO R£WER DIAGNOSTIC 
pnOQRfm TO LOOP 0« TEST 



I 

! 



BOB 

DECFLO VER 00.12 Ol-JUL-77 08:^5 WWE 4H 

SCQ Xbb 



************ 

«TESTX « STPRT ADDRESS r 220 
«««««•«»««« 
I 

«««««ffftft*Hft««««««* 

/ flSK USER TO LOAD / 
/ "SCOPE- flOOR. OF / 
. DESIRED TEST / 

I 

» HALT AUAITING » 

« USER TO PRESS * 

« CONTINUE « 

I 

««*«ft**«««f«ft*»«««««««« 

« STORE ADDRESS & « 
»CHAN6E IT TO ADDR. 0F« 
«1ST INSR. AFTER SCOPE« 

I 

«f*»«Mf««M«fti«««»« 

/ ASK USER TO SET / 
/ DESIRED SWITCH / 
/ REGISTER OPTIONS / 
«*«#»«**««««*«««««« 

I 

«««*««lifftH««*ft* 

« HANG AUAITING « 
» USER TO PRESS « 
* CONTINUE « 
««*»*««««»**»«««« 
I 

«««ftftf*«ftff «««««««!«««« 

«STORE ADDR. LOADED BY« 
« USER IN "SLPAOR- TO « 
«BE PICKED UP BY SCOPE* 
»»»«**«»»M»««*»f «*«*«» 
I 

i » 

» JUMP TO TEST » 
* SELECTED ! » 
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I 



/ \N0 
/ IS OFF-LIfC CON- 
/ DITION PRESENT ' \ 

I YES 

/ TELL USER HE IS / 
/ OFF-LINE I PRESS / 
/ RESET & CONTINUE / 

I 

« mv^ (muiHQ * 

» USER TO PRESS # 
« CONTINUE « 

I 

#CK0FFLC4S)* 



************ 
♦INIT(08) « 
************ 

I 

*********************** ************************* 

tRETURN TO WHERE ROU- ♦ »« »» »»««»»»»««»» 

■)» TIfC -CKOFFr HPS f »» CKOFFL »» >»CK0FFL(45)» 

« LflSf CALLED » «» »» »»»*»»«»»«« 

**********************i ************************* 

1 

«4(f«««««ft«»«««««i 

/ \N0 « HMiG RMITING * 

/ IS CONTROLLER \-— )» CONTROLLER » 
/ REftOY ' \ « REftOY * 

tt»ft««ftX««««>«««ft 

I YES 
***************** 

* ISSUE A * 

* POUER clem; * 

* ft 
«««f«ffftf»ftftft»»ft« 

I 

«»«ft«««««««ff«f««tft« 

/ IS STATUS REGIS-\NO / REPORT / 
/ TER NOW W.L \ — >/ ERROR / 
/ CLEARED OUT » > / / 
ftftftft»«««««««««ft«««« 

I YES I 

I< 

}««ft«»««««»«fft«»4«ff«ft« 

ftRETURN TO WHERE ROU- » 
»TINE "INIT" WAS LAST » 
ft CALLED * 
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T22 
T23 
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T33 
T34 
T3b 
T37 
T40 
T41 
T42 
T43 



TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 



TESTS 

OF ALL REGISTERS 
OF STATUS REGISTER 
OF COLUMN COUNT REGISTER 
OF BUS ADDRESS REGISTER 
READY TO CLEAR BITO 
_ aEAR AFTER CARD READ 
INTERRUPT FROH CONTROLLER READY 
NO INTERRUPT ON CONTROLLER READY & CPU AT LEVEL 7 



FOR AN 
FOR AN 
FOR AN 
FOR AN 
FOR AN 
FOR AN 
FOR AN 



INTERRUPT 
INTERRUPT 
INTERRUPT 
INTERRUPT 
INTERRUPT 
INTERRUPT 
INTERRUPT 



ON 
ON 
ON 
ON 
ON 
ON 
ON 



LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 



CLEARED 
1 LEVEL 



TEST _ _ 

TEST NO INTERRUPT WITH IE SET & REST 
SIMULTANEOUS INTERRUPTS AT MORE THAN 
NON-EXISTANT MEMORY DETECTION 

EXECUTE DATI.DATOB(lOU BYTE) LOAD ON COLUMN COUNT 
EXECUTE OATI.DATOBCHIGH BYTE) LOAD ON COLUMN C0UN1 
EXECUTE DATI OATIP ON COLUMN COUNT REGISTER 
EXECUTE OATI 0AT08(L0W BYTE) LOAD ON BUS ADDRESS 
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EXECUTE DATI'dATIP ON BUS ADDRESS REGISTER 
WORD COUNT OVERFLOW TO END CARD 
BUS ADDRESS ODD S TRANSFER IN NON-PACK MODE 
DATA RELIABILITY TEST 
PASS ROUTINE 
ERROR +1 FUNCTION TESTS 
TEST OATA LATE 

ERROR AND OFF LINE BITS 
INPUT HOPPER EMPTY 
OUTPUT STACKER FULL 
PICK CHECK ERROR 



TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
LOOP 



STACK CHECK ERROR 
^END OF FILE' AND HOPPER CHECK 
READ CHECK ERROR 
ON TEST ROUTINE 
IDENTICALLY PUNCHED CARDS TEST 
COMMON ROUTINES 
ERROR MESSAGE TYPEOUT ROUTINE 
ER?OR HANDLER ROUTINE 
SCOPE HANDLER ROUTINE 
TYPE ROUTINE 

BINARY TO OCTAL (ASCII) AND TYPE 
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I0& 



SEQ 0073 



176000 



000001 



.NLisT nc,m,c*€ 

-LIST PC 

ENABL (^BS PHA 

inCfllL . HEAoER, STARS, .$CI1TflG..SCflTCH, .JERROR, .lERRTYP.SETPRI 

HCRLL .EOUflT, :SETUP' ITYPOCt. .STYPE .STRA" 'SPGUER.G^TPRI 

.HCflLL fCUTST .SSCOPfe, ,$EOP, . WCTll, .STYPOEC.COflHENt.ENDCOmENT 



fSUR=17b000 



DZCOB-B 



TITLE HfllNDEC - 11 
•COPYRIGHT (C) 1977 
«OiGITRL EQUIPMENT CORP. 
«nRYNflRD, NRSS. 0175H 

»PROGRm BY E. RYAN 

*THIS PROGRAM MAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
ftPACKAGE (MAINDEC-ll-DZQAC-BD^AUG 29,1975. 

*TN=1 

COPYRIGHT (C) 197&. 1977 

DIGITAL EQUIPMENT tORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY 
ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY UITH 
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS_ 
SOFTWARE, OR ANY OTHER COPIES THEREOF. MAY NOT BE PROVIDED 
OR OTHERtllSE MADE AVAILABSLE TO ANY OTHER PERSON EXCEPT 
FOR USE ON SUCH SYSTEM AND TO ONE MHO AGREES TO THESE 
LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL 
AT ALL TIMES REMftIN IN DEC. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 
BY DIGITAL EQUIPMENT CORPORATION. 

UZC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY 
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY 
DEC. 



flfilNOCC - 11 
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JQb 



SEQ 0074 



•SBTTL 



OPERATOR PROCEDURES 



STARTING ADDRESSES ARE: 

200=IHSTRUCTI0N AMD DATA TEST FOR THE CDll 
210=EfiR0R FUNCTION TEST OF CDll (H-1Q00/H-200) 
220=SINGLE TEST ..OOP 
240=READ SlfJSLE DATA PATTERN TEST 
250=ERR0R FUNCTIG'i TEST FOR CDll (M-iiOO) 



SU03=1 
SU0H=1 
SU05=1 



=0 



SWITCH REGISTER SETTINGS FOR THE INSTRUCTION 9m DATA TEST ARE: 
5U02=1 RUN IN DATA IHAGC NODE ONLY 

RUN IN DATA PACKING NODE ONLY (IGNORED IF 9U02=1} 
FOR THE BINARY TEST DECK 
TO HALT AT THE END OF A STANDARD 80 CARD 
TEST DECK. (HITTING CONTINUE WILL START TESTING 
OF THE rCX1 DECK IN ACCORDANCE WITH CURRENT 
5UR SETTINGS). 

TO CONTINUE FROH ONE DECK TO THE NEXT. 
AFTER THE LAST DECK IN THE HOPPER IS 
RUN. THE PROGRAH WAITS FOR THE CARD READER 
TO 60ME BACK ON-LINE.AND RUNS THRU 
A SERIES OF CHECKS OF OFF-LINE AND 
COMING ON-LINE OPERATIONS OF THE READER. 
WHEN THE READER IS BACK ON-LINE AND THE 
CHECKS ARE COMPLETE. THE DATA TEST IS RESUMED. 
SW06=1 TO RUN THE COMBINED INSTRUCTION AND DATA TEST 
WHEN CONTINUING FROM ONE DECK TO THE NEXT 
=0 TO RUN ONLY T« DATA TEST ON EVERY DECK AFTER THE FIRST 
SW07=1 TO RUN ONLY THE INSTRUCTION TEST CONTINUALLY. 

SETTING SWQb AND SWQ7 AT THE END OF A DECK WILL 
CAUSE THE INSTRUCTION TEST TO BE RUN CONTINUOUSLY FROM THEN 
(NOTE THAT IF SW7 IS SET, THE PROGRAM MAY HANG WHEN THE 
CARD READER RUNS OUT OF CARDS) 
SW11=1 TO INHIBIT SUBPROGRAM ITERATION 

(NOTE THAT IF PROGRAM FLOW IS A..LOWED TO FNTER THE 
DATA SUBTEST WHEN SWll IS SET, DATA ERRORS WILL 
OCCUR SINCE THE CARD COUNT WILL BE INCORRECT. ) 
SW12=1 TO INHIBIT Tf^ACE TRAPPING 
SW13rl TO INHIBIT PRINTOUT 
SWlHsl FOR SCOPE LOOP & LOOP ON TEST 
SW15=1 TO HALT ON ERROR 



ON 



OPERATING 

1. 



2. 



3. 
4. 



PROCEDURE FOR THE INSTRUCTION AND DATA TEST: 
LOAD TEST DECK IN CARD READER AND PRESS "START" ON THE CARD 
READER. IF THE DECK BEING USED IS NOT A STANDARD TEST 
DECK, ONLY THE INSTRUCTION PORTION OF THE TEST CAN BE RUN. 
(SW7 MUST BE SET TO ONE TO INDICATE THIS). 

LOAD SA 200, THEN SET THE SWITCH REGISTER SWITCHES TO ^HE DESIRED 
COMBINATION 

PRESS "START- ON THE CONSOLE 

NOTE THAT RUNNING THE C0*1PLETE INSTRUCTION TEST 

REQUIRES THAT THE INPUT HOPPER MUST RUN OUT OF CARDS 



ozcoe.Pii 

99 
100 
lOi 
102 
103 
lOM 

181 
107 
108 
109 
110 
111 
112 
113 
114 
lie 
11& 
117 
118 
119 
120 
121 
122 
123 
124 
125 
12b 
127 
128 
129 
130 
131 
132 
133 
134 
135 
13b 
137 
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SF.O n075 



AT THE END OF fl TEST DECK AT LEAST ONCE. 
OCCURS, THE PROCESSOR SHOULD CONTINUE TO RUN. 



UHEN THIS 

LOADING 

A DECK INTO THE INPUT HOPPER ANO PRESSING "RESEr ON THE CARD 
RcAOER SHOULD CAUSE THE BELL TO RING AND THE CARO 
READER TO RESUfC READING CARDS. IF THIS DOES NOT OCCUR, 
IT IS FAULT ArtO&40ULD BE FIXED. 



SPECIAL SWITCH REGISTER SffTINGS FOR THE ERROR FUNCTION TEST: 
Skl4=l TO LOO? THRU THE CURRENT SUBTEST 
SU1S=1 TO HALT ON ERROR 

OPERATING PROCEDURE FOR THE ERROR FUNCTION TEST: 

1. LOAD A FEU SPARE CARDS INTO THE INPUT HOPPER. 

2. PRESS -RESET" ON THE CARD READER. 

3. LOAD THE SA. THEN SET THE DESIRED SWITCH OPTIONS. 

4. PRESS "STARt- ON THE CONSOLE. 

5. FOLLOW THE INSTRUCTIONS AS THEY ARE PRINTED OUT. 

SINGLE TEST LOOP (SA 220) HALTS TWICE! 

1ST HALT - LOAD STARTING ADDRESS OF DESIRED TEST (TESTl TO TEST 22) 

2ND HALT - SET 5UR OPTIONS (BIT 11 MUST = 0) ^ _ ^ ^ 

THIS TEST USES TRACE TRAPPING WHERE APPLICABLE IF SW12 IS NOT SET 

DESCRIf ■ ION OF SINGLE DATA PATTERN TEST 

THIS TEST IS DESIGNED TO AID IN THE LOCATION OF DIFFICULT DATA ERROR 
PROBLEMS AND PUMPPS HELP IN SOME CARD READER ADJUSTMENTS IT 
CONTINUOUSLY READS CARDS WHICH HAVE ALL COLUMNS PUNCHED OR MARKED 
IDENTICALLY. CHECKING THE DATA AGAINST P PATTERN SET UP ON THE SWITCHES 
INITIALLY. Any ERRORS ARE PRINTED OUT. ALONG WiTH A COUNT OF THE TOTAl 
MJMBER OF CARDS READ AND THE TOTAL NUMBER OF DATA ERRORS WHICH HAVE 
OCCURRED SINCE THE TEST WAS STARTED. 

OPERATING PROCEDURE FOR SINaE DATA PATTERN TEST: 

1. LOAD TEST DECK OF IDENTICAL CARDS IN THE INPUT HOPPEP, AND PUT 
THE CARD READER ON-LINE (I.E. - PRESS "RESET" ON CARD READER). 

2. LOAD SA 240. THEN PRESS "START" ON THE CONSOLE. 

3. AT THE INIltAL HALT SET THE CORRECT CARD-IMAGE 
OnTA PATTERN IN SWll-SWOO. THEN PRESS CONTINUE 

4. WHEN THE READCR RUNS OUT OF CARDS IT WILL RING THE 

BELL. RELOADING THE DECK AND PRESSING "RESET" ON THE CARD 
READER WILL CONTINUE THE TEST. 



LOb 



tifllfCCC - 
0ZC08.P11 

ISO 

141 
142 
143 
144 

lis 

147 
** 
1» 
1! 
1< 

i! 
1< 
ll 
If 

H 
1 

11 
159 
160 
161 
162 
163 
164 
16!: 
166 
167 

111 

170 
171 

174 
175 
176 
177 

180 

lei 

182 
183 
184 
185 

\^ 

188 
189 
190 
191 
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= E0 OO-'u 



001100 



177776 

177774 
177772 
177570 
177570 



000000 
000001 
000002 

QQQQ03 

000004 
000005 
000006 
000007 



STATUS AND CONTROL REGISTER (COST) BIT DESIGNATIONS 



BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 8 
BIT 9 
BIT 
BIT Jl 
BIT 12 
BIT 
BIT 
BIT 



0 
1 
2 
3 
4 
5 
6 
7 



10 



13 
14 
15 



READ 
DATA PACKING 
HOPPER ENPTY 

RFADER TRANSITION TO ON LINE 

ADD^SS BIT 16 

ADDRESS BIT 17 

INTERRUPT ENABLE 

CONTROUER READY 

POUER aEAR 

NON-EXISTENT MEMORY 

DATA LATE 

DATA ERROR 

OFF-LINE 

END OF FILE (ftlSOO ONLY) 
CARD HEADER ERROR 
ERROR 



.S6TTL BASIC DEFINITIONS 



:«INITIAL ADDRESS OF 

Stacks iioo 

.EOUIV ENT, ERROR 

.EOUIV lOTJCOPE 

PS= 177^76 

.EQUIV PS.PSU 

STKLMT= 177774 

PIRO= 177772 

DSMR= 177570 

ODISP= 177570 



THE STACK POINTER »»» 1100 »»« 



; BASIC DEFINITION OF ERROR CALL 
BASIC DEFINITION OF SCOPE CALL 
•PROCESSOR STATUS WORD 

; STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 



•GENERAL PURPOSE REGISTER DEFINITIONS 



ftQ= 
Rl= 
R2= 
R3= 
R4= 
R5= 
R6= 
R7= 
.EOUIV 



XO 
XI 

y.2 
y.3 

'/M 

y.s 
y.7 

R6,SP 



GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERHL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
STACK POINTER 



ifiiNoec - 1, 

OZCDB.PH 

1% 

1% 
199 



202 
203 

IS 

206 

207 

208 

20«3 

210 

211 

212 

213 

214 

215 

21b 
21? 

216 
21<9 
220 
221 
222 
223 
224 

22b 
227 
228 
22S 
230 
231 
232 
233 
234 
23S 
23b 
237 
238 
23S 
240 
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000000 



000140 
000200 

000300 
000340 



100000 
040000 
020000 

oiuono 

004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
0000C2 
OOOOGl 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000100 
000100 
000040 
X0020 
QOOOlO 
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.EQUIV R7,PC 



;;PR0Gmn COUNTER 



•PRIORITY LEVEL 0EFINITI0^6 



PR|= 



PR3= 
PR4= 
PR5= 
PRb= 
PR7= 



0 

l8o 
140 
200 
240 
300 
340 



PRIORITY LEVEL 0 

PRIORITY LEVEL 3 
PRIORIT.' LEVEL 
PRIORITY LEVEL 
PRIORITY LEVEL 
PRIORITY LEVEL 



f-SUITCH REGISTER" SWITCH DEFINITIONS 



^U15= 
5U14= 
SU13- 
S;<112- 
SU11= 
SU10= 
SIJ09= 

suoe= 

SU07= 
SUOb= 
SU05: 
SU04= 
SU03- 
SU02= 
SU01= 

suoo= 

.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 



lOOCOO 
40000 
20000 
10000 
4000 
2000 
1000 
400 
200 
100 
40 
20 
10 
4 
2 
1 

51409, 5U9 
5U0e,5UB 
SU07 SU7 
SU06,SU6 
SUOS.SUS 
SM04,SU4 
SU03 5U3 
SU02,SU2 
SUOI SUl 
SUOO SUO 



:»DflTfl BIT DEFINITIONS (81^00 TO BIT15) 

6lT15= lOOQQO 

BIT14= 40000 

BIT13: 20000 

BIT12= 10000 

BITlls 4000 

BITlOs 2000 

BIT09= 1000 

BIT08= 400 

BIT07= 200 

BITOb= 100 

BIT05= 40 

BIT04= 20 

BIT03= 10 



ozcoe.pu 



25W 



HI 

IS 

2t>3 
264 
BbS 
2hb 
Zh7 

m 

271 
272 
273 
274 
275 
27b 
27? 
27E 
279 
280 
281 
282 
283 
284 
285 
28& 
287 
288 



291 000174 
1^ 000176 

294 

295 000200 

2% 

297 

298 

299 
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NOb 




000004 
000010 
000014 
000014 
000014 
000020 
000024 
00Q030 

888860 
000064 
000240 



000000 
000002 
000003 
000004 
000005 
000005 
000360 



000000 



000174 
000000 
000000 



000137 002170 



Q 0078 



vm 

BITOOs 
.EQUIV 

touiv 

.EOUIV 
.FOUIV 
.EQUIV 
.EOUIV 
.EOUIV 



4 

2 
1 

BIT09,BIT9 




tT05 BITS 
BIT04,BIT4 

BITOl Bin 
BITOO.BITQ 



:»a^IC "CPU" 
^RRVEC= 4 
RESVEC= 10 
TBITVEC=14 
TRTVECs 14 
BPTVECs 14 
lOTVECs 20 
PURVECs 24 
EMTVECs 30 
TRflPVEC=34 
TKVEC= 60 
TPVEC= 64 
PIR0VEC=240 



•.SPECIAL EOUATES 

DU««Y= 0 

AOINTs X2 

CDS= X3 

CDC= X4 

CDA: X5 

TTY= XS 

TRACES 360 



TRAP VECTOR 



ADDRESSES 
TIfC OIJT 



AND OTHER ERRORS 
RESERVED AND ILLEGAL INSTRUCTIONS 
"T- BIT 
TRACE TRAP 

BREAKPOINT TRAP (BPT) 
INPUT/OUTPUT TRAP (lOT) «SC0PE»* 
POUER FAIL 

EMULATOR TRAP (ENT) »tERR0R»* 

"TRAP** Tf^P 

TTY KEYBOARD VECTOR 

TTY PRINIER VECTOR 

PROGRAM INTERRUPT REQUEST VECTOR 



; CONTAINS ADDRESS OF INTERRUPT VECTOR 
CONTAINS ADDRESS OF CARD READER STATUS REGISTER 
; CONTAINS ADDRESS OF CARD READER COLUMN COUNT 
; CONTAINS ADDRESS OF CARD READER BUS ADDRESS REG. 



.SBTTL TRAP CATCHER 
.=0 

;tALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".+2,HALT- 
*SEOUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
;»LOCATION ^CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 

DISPREG: .UORD 0 ;; SOFTWARE DISPLAY REGISTER 

SUREG: .UORD 0 ;;SOFTUARE SWITCH REGISTER 

.SBTTL STARTING ADDRESS(ES) 

JHP aiBEGIN ;;JUMP TO STARTING ADDRESS OF PROGRAM 

•SBTTL ACT 11 HOOKS 
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; HOOKS REQUIRED BY ACT II 
ISVPCr. 

SENOAO 
.=52 

.UORD 20000 
.=1SVPC 

.=1M 

.WORD TRTRftP 
.UORD 340 



B0<' 



Dzcoe.pii 


ftCTll 


300 






XI 




000204 


302 




0000% 




0000% 


0150% 
000052 


3QS 


000052 


020000 


^ 




000204 


307 
308 




000014 


30S 


000014 


001242 


310 


OOOOlfa 


000340 


311 






312 






313 






314 




000210 


315 


000210 


000137 


31& 






317 




000220 


318 


000220 


000137 

WWW X W f 


31? 






320 






321 




000240 

WW WW )U 


322 


000240 


000137 


323 






324 






325 




000250 


32& 


000250 


000137 


327 






328 






32<3 







;flDDITI0mL STARTING ADDRESSES 
.=210 

JMP ERCDll 
.=220 

JMP TESTX 



.=240 

JMP CKSAME 



.=250 

JMP ER1200 



;SAVE PC 

;;1)SET L0C.4b TO ADDRESS OF SEfCAO IN .SEO^ 

;;2)SET L0C.52 TO 20000 
I; RESTORE PC 



;FOR CDU (ni000/M200} ERROR FUNCTION TESTS 

;F0R LOOP UHICH UILL CONTINUTALLY RUN 
•ANY SINGLE SUBTEST 

;T0 READ A SINaE DATA PATTERN 
; CONTINUOUSLY 

;F0R coil (fllSOO) ERROR FUNCTION TEST 



PIfilNOEC - 11 
DZCDB.Pll 

330 
331 
332 
333 
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CQ7 



SEO 0080 



336 

337 

iiii 

3H0 001102 

3M3 00110b 

34H 001110 

3H5 001112 

3% 001114 

3M7 001115 

3H6 001116 

3M9 001120 

350 001122 

351 00112H 

352 00112b 

353 001130 

354 001132 

355 001 13M 
35b 00113b 

357 XI 140 

358 001142 

359 001144 
3b0 00114b 
3bl 00U50 
3b2 001152 
3b3 001153 

3bb 00115b 

^ 001 IbO 

3b9 001 lb2 

370 001 lb4 

371 001 Ibb 

372 001170 

373 001172 

374 001174 

375 00117b 
37b 001200 

377 001202 

378 00125i 

379 00120b 

380 001210 

381 001212 

382 001214 

383 00:21b 



OQUOO 

QOOOOO 
000 

QQQ 

000000 
000000 
000000 
000000 
000 
001 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
177570 
177570 
1775b0 
1775b2 
1775b4 
1775bb 
000 
002 



000000 

000000 
000000 
000000 
000000 
000000 

ooonoo 

000000 
000000 
000000 
000000 
QOOOOO 
000000 

oooooc 

000000 
000000 
000000 



.S8TTL COMMOM T«GS 

;#THIS IPBLZ rONTfilNS VfiRIOUS COHMON STORAGE LOCATIONS 
;«USCD IN THE PROGRAM. 



fCMTAG 
SPASS: 
ITSTNM 
SERFLG 
JICNT: 
SLPADR 
JLPERR 
lERTTL 
SITENB 
SERHAX 
SERRPC 
SGDADR 
SBDADR 
SGODAT 
SBDOAT 



SUR: 
DISPLAY 
JTKS 
$TKB 
JTPS 
JTPB 
SNULL: 
SPILLS 
IPILLC 
STPFLG 
SREGAD 



SREGO 
SREGl 
SREG2 
SREG3 
SREG4 
SREG5 
SREGb 
SREG7 
ITMPO 
ITMPl 
ITnP2 
STMP3 
JTMP4 
ITMP5 
JTNPb 
JTt1P7 



.=1100 

.WORD 
.BYTE 
.BYTE 
.UORO 
.UORO 
.UORO 
.WORD 
.BYTE 
.BYTE 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
1775bO 
177562 
177564 
i775bb 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.UORO 

.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORD 
.UORO 
.UORO 
.UORO 
.UORO 



0 
0 
0 
0 
0 
0 
0 
0 
1 
0 
0 
0 
0 
0 
0 
0 
0 

D3UR 
DDISP 



0 

2 

12 

0 

0 



0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 



START OF 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
RESERVED 



CQffflON TAGS 
WfeS COUNT 



THE TEST NUMBER 
ERROR FLAG 

SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 
MAX. ERRORS PER TEST 
PC OF LAST ERROR INSTRUCTION 
ADDRESS OF 'GOOD' D'^TA 
ADDRESS OF 'BAD' DATA 
'GOOD' DATA 
'BAD' DATA 
-NOT TO BE USED 



ADDRESS OF 5UITCH REGISTER 
ADDRESS OF DISPLAY REGISTER 
TTY KBO STATUS 
TTY KBO BUFFER 

TTY PRINTER STATUS REG. ADDRESS 

TTY PRINTER BUFFER REG. ADDRESS 

CONTAINS NULL CHARACTER FOR FILLS 

CONTAINS t OF FILLER CHARACTERS REQUIRED 

INHRT FILL CHARS. AFTER A "LINE FEED' 

-T^INAL AVAILABLE- FLAG (BIT<07>=0=VES) 

CONTAINS THE ADDRESS FROM 

UHICH (SREGO) UAS OBTAINED 

CONTAINS ((SREGAD) 40) 

CONTAINS ((SREGAD) 42) 

CONTAINS ((SREGAD) +4) 

CONTHINS ((SREGAD) 4b) 

CONTAINS ((SREGA0)410) 

CONTAINS ((SREGA0)412) 

CONTAINS ((SREGA0)+14) 

CONTAINS ((SREGAD)4lb) 

USER DEFINED 

USER DEFINED 

USER DEFINED 

USER DEFINED 

USER DEFINED 

USER DEFINED 

USER DEFINED 

USER DEFINED 



rttlfOEC - 11 - DZCM-B fIfiCYll 27(654) l-JUL-77 08: 3S Pft&E «9 
OZCDB.PU COrtlON TOGS 



38M 00 

385 00 



388 00 



.220 000000 

222 I77b07 000377 

IP 8Ii 

230 000012 



STirCS: 0 

SBELL: .flSCIZ <207><377><377> 

m\ -.m iYs> 

$LF: .flSCIZ <12> 



MAX. NUMBER OF ITERATIONS 
CODE FOR KL'. 
QUESTION mRK 
CARRIAGE RETURN 
LINE FEED 



EQ7 



n«iNOcc - 11 

D2CDB.P11 



ozcoe-8 nflCYu 27(&5H) 

COnnON TAGS 



38S 
3<M 



001232 1771&0 



3S3 

W 00123H 
395 001236 
OOlcHO 



396 

399 0G12M2 

400 X12M4 

401 M1246 

402 001250 

403 001252 

404 001254 

405 00125b 
406 

407 001260 

408 001262 

409 001264 

410 001266 
■til 

412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 

426 001270 

427 

428 

429 

430 001270 
431 

432 001272 

433 001274 

434 001276 
435 

436 
437 

438 001300 
439 

440 001302 

441 001304 

442 001306 



177162 
177164 
177166 



000002 
000230 
000232 
000000 
000000 
000000 
000000 

000000 
000000 
000000 
000000 



036272 

044254 
045236 
000000 



036367 

044322 
045252 
000000 



l-JUL-77 08:39 PAGE 10 



LOflO POINTERS AND GENERftL STORfWE 



5EQ 0082 



tOST: 



CDCC: 
COBfl: 
CDOB: 



TRTRflP: 
INTVC: 

COUNT: 
INTFLG: 
TRFLG- 
PROC: 

ERFLG: 
CKRF: 
COUNTG: 
CDIOGO: 



177160 



177162 
177164 
177166 



RTI 
230 
232 

a 

0 
0 
0 

0 
0 
0 
0 



ADDRESS OF CARD READER STATUS REGISTER il 
THIS REGISTER'S IN^TRNATIOM IS VALID 
DURING DATA TRANS)- li^ 
ADDfXSS OF CARD READER COLUMN COUNT 
ADDRESS OF CARD READER BUS ADDRESS 
ADDRESS OF CARD READER STATUS REGISTER lE 
THiS REGISTER'S II€0RHATI0N IS VALID 
DUi^ING NON-DATA TRANSFER PERIODS 
RETURN FROM TRACE LOOP 
ADDRESS OF CARD READER INTERRUPT VECTOR 

USED FOR TIMING. ETC. 

CONTAINS LEVEL tHAT INTERRUPT IS FOUND AT 

TOGGLED TO SWITCH BETWEEN TP CE TRAPPING AND NORMAL FLO 

STORES PROCESSOR STATUS UHEN TRACE TRAP MUST BE CLEARED 

IN A SUBTEST _ 

SET TO ZERO TO OUTPUT DfiTA ERROR HEADING 

FLAG FOR CHECKERBOARD DECK 

USED AS COUNTER Irl TESTG 

M-1200 OR M-1000/M-200 CARD READER DETECTOR 



.SBTTL ERROR POINTER TABLE 

:»THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

»THE INFORMATION IS OBTAIfCD BY USING THE INDEX NUMBER FOUND^IN ^ ^ 

•LOCATION JrEHB. THIS NUfCER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

»N0TE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (lERRPC). 

«N0TE2: EACH ITEM IN IHE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 



EM 
OH 
DT 
DF 



: POINTS TO THE ERROR MESSAGE 
POINTS TO THE DATA HEADER 

; POINTS TO THE D^^TA 
POINTS TO THE DATA FORMAT 



JERRTB: 
;ITEM 1 



EMI 

OHl 
OTl 
0 



STATUS REGISTER (CDS) BIT07 NOT SET BY 
INITIALIZATION PULSE 

(PC) (SP) (CDS) (COD) 
JERRPC, SREG6, JTMPO, JTMPl , IREG7 
OCTAL (values 



(PS) 



; ITEM 2 



EM2 

DH2 
DT2 
0 



COLUMN COUNT REGISTER (COO NOT CLEARED BY 
INITIALIZATION PULSE 

(PC) (SP) (CDS) (COD) (CDC) (PS) 
SERRPC, SREG6 , JTMPO, JTMPl , JTMP2 , JREG7 
OCTAL VALUES 



ftfllNOeC - U - DZCDB-B rWCYll 27{&S4) 
OZCOB.PU ERROR POINTER TMLE 



l-JUL-77 08:39 



443 
444 
445 

4% 001310 
447 

448 M1312 




452 

454 001320 

455 001322 



4^8 
459 
4b0 

4bl 001330 

4^! QQ1332 

464 001334 

465 001 33& 
4b6 

4b7 
4bB 

4b9 001340 
470 

471 001342 

47? 001344 

473 00134b 

474 

475 

47b 

477 001350 
478 

479 001352 

480 0013SM 

481 001358 
482 

483 
484 

485 0013bO 
4eb 

487 001382 

468 001384 

489 0013b8 

490 

491 

492 

493 001370 
494 

495 001372 
M% 001374 



038470 
044400 

8^Soo 



03b570 
044254 



Q38833 

044322 
045252 
000000 



038734 

044322 
045252 
000000 



037024 

044400 
0H5270 
QOOOQO 



037124 

044400 
04527Q 
000003 



037213 

044254 
045238 



;ITEn 3 



En3 

0H3 
0T3 
0 



; ITEM 4 



EM4 
DHl 
DTI 
0 



;ITEI1 5 



Ef15 

0H2 
DT2 
0 



;ITEf1 8 



En8 

DH2 
DT2 
0 



;ITEf1 7 



Ef17 

DH3 
DT3 
0 



;ITEf1 10 



Enio 

0H3 
DT3 
0 



;ITEM 11 



EMU 

OHl 
DTI 



BUS flOOSESS REGISTER (CDfl) NOT CLEARED BY 
INlTIRLIZflTTON PULSE 

(PC) (SP) (CDS) (CDD) (CDfi) (PS) 
SERRPC, IREM. , f TMPO , $TMP1 , $TnP3 , 1REG7 
OCTAL C'RLliES 



STflrUS REGISTER CONTENTS INCORRECT 

(PC) (SP) (CDS) (CDD) (PS) 
JERRPC, $RE(i8, ! TMPQ, ITMPl , IREG7 

OCTAL Values 



COLUMN COUNT REGISTER (CDC) NOT ABLE TO 
BE LORDED WITH ALL ONE'S 

(PC) (SP) (CDS) (CDD) (COG) (PS) 
JERRPC, $REG6 , ITNPO, STHPl , STMP2, $REG7 
OCTAL VALUES 



COLUMN COUNT REGISTER (CDC) NOT CLEARED 
BY POHER aEAR 

(PC) (SP) (COS) (CDD) (CDC) (PS) 
SERRPC, SREG8, ITMPO , STHPl , $TMP2 , SREG7 
OCTAL VALUES 



BUS ADDRESS REGISTER (CDA) NOT ABLE TO BE 
LOADED UITH ALL ONE'S 

(PC) (SP) (CDS) (CDD) (CDA) (PS) 
SERRPC, $RtG8, STMPO, STMPl , $TMP3, SREG7 
OCTAL VP.LUES 



BUS ADDRESS REGISTER (CDA) NOT CLEARED 
BY POUER CLEAR 

(PC) (SP) (CDS) (CDD) (CDA) (PS) 
SERRPC, SREGb , STMPO , STMPl , STMP3 . $REG7 

OCTAL VALUES 



CONTROLLER READY DIDN'T CLEAR ON 
READING A CARD 

(PC) (SP) (CDS) (CDD) (PS) 
SERRPC, $REG8, STMPO, STMPl , $REG7 



fWlNOeC - U - OZCDB-B rWCYll 27(b54) l-JUL-77 08:3S 

OZCOe.Pll ERROR POINTER TABLE 

MS7 00137b 000000 0 

-♦g<} ;ITEH 12 
500 

001400 037275 Eni2 

503 001402 044254 OHl 

iSs SSi^iSb 8oo^ 0 

506 

507 ;ITEri 13 
508 

"1410 037374 Eni3 




412 044254 DHJ 




;ITEn 14 

6 QQI'^SQ Q37443 Eni4 

7 001422 (344254 DHl 
424 04523b DTI 
42b 000000 0 

;ITEn 15 

Eni5 

OHl 
DTl 
0 

;ITEf1 lb 

Enib 

OHl 
OTl 
0 

;ITEI1 17 

EI117 

OHl 
OTl 
0 



522 






523 


001430 


03751b 




001432 


044254 




001434 


04523b 


i 


roi43b 


000000 


530 






531 


001440 


037bl3 


532 






m 






535 


00144b 


000000 


53b 






537 






538 






53S 


001450 


037b77 


540 






541 


001452 


044254 


542 


001454 


04523b 


543 


00145b 


000000 


544 






545 






5% 






547 


0014b0 


04002b 


548 


0Q14b2 


04445b 


549 


001464 


04530b 


550 


0014bb 


000000 



;ITEH 20 



EM20 
0H4 
0T4 
0 



GO? 



12 

SEO 0084 

;OCTRL VRLUES 



CONTROLLER RERQY DION'T CLEAR 8IT00 
OF STATUS REGISTER (CDS) 

(PC) (SP) (CDS) (CDO) (PS) 
SERRPC. SREC^b, STNPO , STNPl . SREG7 
OCTAL WLUES 



CONTROLLER DIDN'T SET UITHIN ONE SECOND 

(PC) (SP) (CDS) (CDD) (PS) 
lERRPC, SREGb , ITHPO , STNPl , IREG7 
OCTAL {fALUES 



ERROR (BIT15) SET IN STATUS REGISTER (CDS) 

(PC) (SP) (CDS; (CDD) (PS) 
SERRPC . SREGb , STNPO , STNPl , SREG7 
OCTAL ('ALUES 



BIT/S SET IN STATUS REGISTER (CDS) THAT 
SHOULDN'T BE 

(PC) (SP) (CDS) (CDD) (PS) 
SERRPC, SREGb , STMPO , STNPl , SREG7 
OCTAL (values 



'BUSY' SET IN STATUS REGISTER (CDS) 
SHOULDN'T BE 

(PC) (SP) (CDS) (CDD) (PS) 
SERRPC, SREGb , STNPO , STNP 1 , SREG7 
OCTAL (values 



RESTORING CPU STATUS AFTER READING A CARD 
CLEARED CONTROLLER READY IN STATUS REGISTER 

(PC) (SP) (CDS) (CDD) (PS) 
SERRPC, SREGb, STMPO , STNPl , SREG7 
OCTAL VALUES 



NO INTERRUPT OCCURRED 

(PC) (SP) (CDS) (CDD) (CDC) (COfl) (PS) 
SERRPC, SREGb , STMPO , STMPl , $TMP2 , 5TMP3 , $REG7 
OCTAL VALUES 



rWINDEC - 11 

Dzcoe.pu 



Dzcoe-B nM:Yii zTibSH) 

ERROR POINTER THGLE 



551 






552 






553 






554 


001470 


040054 




QC1472 


344456 




(50H74 


045306 


557 


001476 


000000 


558 






559 






5b0 






5&1 


001500 


040124 


562 


001 502 


044456 


563 


001504 


045306 


5fc4 


001506 


OOOCOO 


565 






5&b 






567 






56fl 


001510 


040201 


569 


001512 


044456 


570 


001514 


045306 


571 


001516 


000000 


572 






573 






57H 






575 


001520 


040232 


576 


001522 


044456 


577 


001524 


045306 


57B 


001526 


000000 


579 






580 






581 






582 


001530 


040306 


583 


001532 


044456 


58H 


001534 


045306 


585 


001536 


000000 


586 






587 






588 






589 


001540 


0M0364 


590 






591 


301542 


044W56 


592 


001^44 


045306 


593 


001546 


000000 


59M 
395 










596 






597 


001550 


040461 


598 






599 




044456 


600 




045306 


601 


001556 


000030 


602 






603 






604 







l-JUL-77 08:39 
;ITEt1 21 

EMSl 
OHM 
DT4 
0 



;nEn 22 



En22 
DH4 
DT4 
0 



;ITEI1 23 



En23 
0H4 
DT4 
0 



;ITEM 24 



En24 
DH4 
DT4 
0 



; ITEn 25 



EM25 
0H4 
DT4 
0 



;ITEn 26 



En26 

0H4 
DT4 
0 



;ITEI1 27 



EM27 

0H4 
DT4 
0 



;ITEM 30 



HQ7 

13 



m INTERRUPT OCCURRED - SHOULDN'T HAVE 

(PC) (SP) (CDS) (COD) (COC) iCDfl) 
$ERRPC,$REG6, ITMPO, ITMPl , ITHP2,STnP3, $REG7 
OCTRL VALUES 



INTERRUPT flLREflOY OCCURRED AT ft HKWER LEVEL 
(PC) (SP) (CDS) (COD) (COC) (CDft) 
JERRPC, SREG6 , J TMPO , ITMP 1 , i T HP2 , ITi 1P3 . SREG7 
OCTfiL {'flLUES 



CONTROLLER READY NCT SET 

(PC) (SP) (CDS) (COD) (COC) (CDfi) 
JERRPC, $REG6 , ITMPO , JTNPl , $TMP2 , ITI1P3 , IREG7 
OCTAL ('ALUES 



INTERRUPT ALREADr OCCURRED AT A LOWER LEVEL 
(PC) (SP) (CDS) (COO) (CDC) (CDA) 
JERRPC, JREGb , JTMPO , JTMPl , JTMP2 , ITHP3 , JREG7 
OCTAL ifALUES 



AN INTERRUPT XCURRED AT TMO DIFFERENT LEVELS 

(PC) (SP) (CDS) (CDO) (COC) (CDA) 
JERRPC, f REG6 , JTMPO, JTHPl , JTMP2 , JTHP3, JREG7 
OCTAL ('ALUES 



ERROR (8IT15) NOT SET IN STATUS REGISTER 
(COS) - SHOULD BE 

(PC) (SP) (CDS) (CDO) (COC) (CDA) 
JERRPC, JREG6 , JTMPO , JTMPl , STMP2 , 3THP3 , JREG7 
OCTAL {'ALUES 



NON-EXISTANT MEMORY (BIT09) NOT SET IN 
STATUS REGISTER (CDS) - SHOULD BE 

(PC) (SP) (CDS) (COD) (COC) (COA) 
JERRPC, JREG6 , JTMPO , JTMPl , JTMP2 , JTHP3 , JREG7 
OCTAL VALUES 



SEQ 0085 



(PS) 



(PS) 



(PS) 



(PS) 



(PS) 



(PS) 



(PS) 



MfllfCeC - li - DZCOB-B NftCYll 27(b5H) l-TUL-77 08:3S 

DZCOB.Pll ERROR POINTER TABLE 

b05 001560 OHOSTb EMSO 
bOb 

IS SiH^ Si^ f 

b09 OOlbbb 000000 0 
blO 

bU ;ITEN3i 



li! 



001570 040670 En31 

bl4 

bl5 001572 044H5b QHH 



ISb 



DT4 
0 



bib QQ157H 045306 

617 001S7b 000000 

bie 

619 ; ITEtl 32 

bSO 

621 QQ160Q 037516 Eni5 

622 OOlbOS 044456 0K4 

- - [)j4 

0 



626 ; ITEM 33 

627 



6g 001610 040762 En32 

^ 001612 044544 DH5 

632 001614 045326 DT5 

|33 001616 000000 0 

6^ ; ITEN 34 

6S7 001620 041044 En33 

Isl 001622 044730 DH6 
640 

641 Q01624 045326 DT5 

642 001626 000000 0 
643 

644 ; ITEM 35 

645 

646 001630 041127 En34 
64? 

64U 001632 044254 OHl 

649 001634 U45236 OTl 

650 001636 000000 Q 

6|2 ; ITEM 36 

654 001640 041247 EflSS 
655 

656 001642 044254 OHl 

657 001644 045236 OTl 

658 X1646 OOOQOO 0 



SEO 

EXTENDED NENORY (BIT05) NOT SET IN STATUS 
REGISTER (CDS) 

(PC) (SP) (CDS) (CDD) (CDC) (C0«) (PS) 
lERRPC, SREG6 , ITMPO , ITNP 1 . ITHPS , STNPS , IREC7 

OCTAL Values 



EXTENDED fSEMORY (BIT04) NOT SET IN STATUS 
REGISTER (CDS) 

(PCJ (SP^ (CDS) (CDD) (CDC) (CDA) (PS) 
SERRPC, SREG6 , JTNPO, JTHPl , ITnP2 , $TnP3, f REC7 
OCTAL ('ALUES 



(PC) (SP) (CDS) (CDD) (CDC) (CDA) (PS) 
SERRPC . JREG6 , ITMPO, JTNPl , STHPS , STMP3 , SREG7 
OCTAL i'ALUES 



CONTENTS OF BUS ADDRESS REGISTER (CDA) 
INCORRECT 

rPC) (SP) (CDS) (CDD) (COC) (CDA) (CDA) (PS) 

UAS SHB 

SERRPC, SREG6 , STMPO , STNP 1 , $TnP2 , $TnP3 , $TMP4 , SREG7 

OCTAL {values 



CONTENTS OF COLUMN COUNT REGISTER (CDC) 
INCORRECT 

(PC) (SP) (CDS) (COO) (CDC) (COA) (CDC) (PS) 

UAS SHB 
SERRPC, SREGb , STMPO, STMPl , STHP2 , STMP3 , STHP4 , SREG7 

OCTAL Values 



READER OFF-LINE OUT CARD READER ERROR 
(BIT14) NOT SET IN STATUS REGISTER (CDS) 

(PC) (SP) (CDS) (COO) (PS) 
SERRPC, SREGb , S1 MPO, STMPl , SREG7 
OCTAL {values 



NO TRANSITION TO ON-Llr<E (BIT03) OCCURRED 
IN STATUS REGISTER (CDS) 

(PC) (SP) (CDS) (CDD) (PS) 
SERRPC, SRF'Sb, STMPO, STHPi , SREG7 
OCTAL (values 



nfllNOEC - U - OZCOe-B nftCYll 27(65H) 
OZCDB.Pll ERROR POINTER TABLE 



65S 

bbO 
b&l 

bbZ OOlbSO 

865 OOlbSb 

bbb 

bfe7 

668 

bb9 OOibbO 
b70 

671 OOlbba 
672 

673 OOlbbM 

b7M OOlbbb 

675 

b7b 

b77 

678 001670 

b79 001672 

bSO 001b74 

b61 001676 

682 

663 

68M 

685 001700 
666 




6S0 
691 
692 

693 001710 

iU rai7i2 

19 mill 

698 
699 

700 

701 001720 
702 

703 001722 
70M 00172H 
7g5 001726 

707 
708 

709 001730 
710 

711 001732 
71S 00173M 



043627 

Si53§l 
000000 



OH 1353 

04511" 

045350 
000000 



041432 
044456 
045306 
000000 



041^01 

044456 
045306 
000000 



04156'i 
04H456 

m 

041646 

U444E6 
045306 
000000 

C41743 

044456 
045306 



l-JiX-77 06:39 
;ITEf1 37 

Enb3 

DH4 
0T4 



;lTEri 4C 



En36 

DH7 

DTb 
0 



;ITEM 41 



EM37 
DH4 
0T4 
0 



;ITEM 42 



EM40 

OHM 
DT4 
0 



;ITEM 43 



Ef141 

DH4 
DT4 
0 



;ITEri 44 



EM42 

DH4 
DT4 
0 



;ITEf1 45 



EM43 

DH4 
DT4 



JQ7 



3E 15 



SEQ 0087 



OISASTEROUS ERROR BUT NO ERROR BITS SET 

(PC> (SP) (CDS) (COO) (CDC) (COfl) (PS) 
KRRPC, SREG6 , STflPO , ITMP 1 , iTHP2 , STNP3 , 1REG7 
OCTAL VALUES 



CONTENTS OF STATUS REGISTER 12 (COD) 
INCORRECT 

(PC) (SP) (CDS) (COD) (COD) (PS) 

UAS SHB 
JERRPC, $REG6 , JTflPO , STMPl , JTMP4 , IREG7 

OCTAL Values 



NO INTERRUPT UITH PROCESSOR AT LEVEL 0 

(PC) (SP) (CDS) (CDO) (CDC) (CDA) (PS) 
JERRPC, JREG6 , ITMPO , ITNP 1 , J TMP2 , STMP3 , IREG7 

OCTAL Values 



DATA LATE (BITIO) NOT SET IN STATUS 
REGISTER (CDS) 

(PC) (SP) (CDS) (COD) (CDC) (CDA) (PS) 
JERRPC, 5REG6 , JTMPO , JTNPl , ITMP2 , JTMP3 , JREG7 
OCTAL {'ALUES 



OFF-LINE (BIT12) NOT SET IN STATUS 
REGISTEK (CDS) 

(PC) (SP) (CDS) (COD) (CDC) (CDA) (PS) 
JERRPC, JREG6 , JTMPO , JTHP 1 JTt1P2 , JTt1P3 , f REG7 

OCTAL Values 



OFF-LINE (BIT12) SET IN STATUS REGISTER 
(CDS) - SHOULDN'T BE 
(PC) (SP) (CDS) (CDD) (CDC) (CDA) (PS) 
JERRPC, JREG6 , JTMPO , JTMP 1 , JTMP2 , JTMP3 , JREG7 
OCTAL VALUES 



PICK CHECK (BIT13) NOT SET IN STATUS 
REGISTER 12 (CDD) 

(PC) (SP) (CDS) (CDD) (CDC) (CDA) (PS) 
JERRPC , JREGb , JTMPO , JTMP 1 , JTMP2 , JTMP3 , JREG7 



rtfilNOeC - 11 - OZCOB-B nftCYll 27(654) l-JUL-77 08: 
DZCOB.Pll ERROR POINTFR THBLL 



3 Q0173b OUOOOO 0 
5 ; ITEM % 

? 001740 0M2032 E»144 

9 001742 0M445t DH4 

m 881;;! m r 

722 

723 ;ITEM 47 

001750 042122 EfWS 



724 



Tip QQ1752 044456 DH4 
728 001754 045306 0T4 
72<3 001756 OPOOOO 0 
730 

731 ;ITEf1 50 

732 

733 001760 042230 EM46 
734 

735 001762 044456 DH4 

736 001764 045306 DT4 

737 001766 000000 0 
738 

73'3 ;ITEM 51 

740 

741 001770 042335 EM47 
742 

743 001772 044456 DH4 

744 QQ1774 045306 DT4 

745 001776 OOiSoOO 0 
746 

747 ;ITEf1 52 

748 

74^ 002000 042444 En50 

751 002002 044456 DH4 

752 002004 045306 0T4 

753 002006 QHOOOO 0 
754 

755 ; ITEM 53 

7F* 



002010 042552 En51 

758 

759 002012 044456 0H4 

760 0Q2014 045306 0T4 
76^ 002016 000000 0 



763 ;ITEH 54 

764 

765 002020 042657 EI152 
76b 



KQ7 

16 

SEQ 0ri88 

; OCTAL VALUES 



SET IN STATUS 



(PC) (SP) (CDS) (COD) (CDC) (CDA) iPS) 
SERRPC, SRE(i6 , $THPO , STMP 1 , ITf1P2 , STf1P3 , JREG7 
OCTAL (tALUES 



END OF FILE (BIT13) SET IN STATUS 
REGISTER (CDS) - SHOULDN'T BE 

(PC) (SP) (CDS) (COD) (CDC) (CDA) (PS) 
SERRPC, $REG6 , JTHPO , STMPl , STMP2 , ITHPS, SREG7 

OCTAL Values 



READ CHECK (8IT14) SET IN STATUS 
REGISTER (CDS) - SHOULDN'T BE 

(PC) (SP) (CDS) (COD) (CDC) (CDA) (PS) 
JERRPC, JREG6, STMPO, ITflPl , STHP2, STHPS, JREG7 
OCTAL VALUES 



HQOPER CHECK (BIT02) SET IN STATUS 
REGISTER (CDS) - SHOULDN'T BE 

(PC) (SP) (CDS) (COD) (CDC) (CDA) (PS) 
JERRPC, $R£G6 , STMPO, STMPl , ITMP2, STnP3, $REG7 
OCTAL ('ALUES 



END OF FILE (BIT:3) OF STATUS REGISTER 
(CDS) NOT SET - SHOULD BE 
(PC) (SP) (COS) (CDD) (CDC) (COA) (PS) 
SERRPC, STMPO, STMPl , STMP2, $TMP3, SREG7 

OCTAL Values 



READ CHECK (BITIH) OF STATUS REGISTER 
(CDS) NOT SET- SHOULD BE 

(PC) (SP) (CDS) (CDD) (CDC) (CDA) (PS) 
JERRPC, SREG6 , STMPO , JTMFl , ITMP2, JTMP3, SREG7 

OCTAL ('ALUES 



jHOPPER CHECK (BIT12) OF STATUS REGISTER 
I CDS) NOT SET - SHOULD BE 



- il - DZCOe-B MftCYll e7(b5H) l-JUL-77 08: 
DZCOe.Pll ERROR POINTER TRBLE 

7b7 002022 04MH56 DH4 

mm ma r 

771 ;ITE« 55 

772 

7^ 002030 0H2766 En53 

776 002036 000000 0 
779 

780 ;nEri 56 

752 002040 043115 E«54 
793 

2 044458 DH4 

045306 DT4 

002046 000000 0 

;ITEM 57 

7f* 

730 QQ2Q5Q 043204 EI155 
791 002052 044456 0H4 
7<32 002054 045306 0T4 
793 002056 000000 0 
794 

7% ;ITEM 60 

7% 

7S7 002060 043250 EI156 
7% 002062 044456 DH4 

799 002064 045306 DT4 

800 002066 000000 0 
801 

802 ;ITEM 6i 

803 

80H 002070 043313 CM57 
805 

BOb 002072 044456 DH4 

807 002074 045306 DT4 

808 002076 000000 0 
8C9 

810 ;ITEn 62 

611 

812 002100 043376 En60 

813 002102 044456 DH4 

814 002104 045306 DT4 
ei5 002106 000000 0 
816 

;ITEf1 63 

?18 

819 002110 043452 En61 
820 



L07 

17 

SEO 0089 

; (PC) (SP) (CDS^ (CDO) (CDC) (COA) (PS) 
StSl^^RLuS' '"^'•'^ ^ • ^'^^^ • STMT'S, SREG7 



E.*0 OF FILE (eiT13) QF SIQTUS REGISTER 
(CDS) DIDN'T CLEAR uIth TRANSITION 
TO ON-LINE 

(PC) (SP; (CDS) (COD) (CDC) (CDfl) (PS) 
JERRPC, JREG6. JTHPO, f THPl , |TnP2, STI1P3, JREG7 
OCTAL VALUES 



READ CHECK (BIT14) NOT SET IN STATUS 
REGISTER 12 (COD) 

(PC) (SP) (CDS) (CDD) (CDC) (CDA) (PS) 
SERRPC, $REG6, STNPO, STflPl , JTI1P2, $Tf1P3. SREG7 

OCTAL Values 



CARD READER ERROR BUT NO BOTH CARD 

(PC) (SP) (COS) (CDD) (CDC) (CDA) (PS) 
JERRPC, JREG6 , JTMPO, STMPl , ITMP2, STMP3, $REG7 

OCTAL Values 



CARD READER ERROR BUT READER NOT OFF-LINE 

(PC) (SP) (CDS) (CDD) (CDC) (CDA) (PS) 
SERRPC, SREG6 , ITNPO , JTHPl , $TMP2 , JTf1P3 , 4REG7 
OCTAL VALUES 



END OF FILE ERROR (BIT13) OF STATUS 
REGISTER (CDS) 

(PC) (SP) (CDS! (CDD) (CDC) (CDA) (PS) 
SERRPC, SREG6 , STNPO, STHPl , ITHP2, $TMP3, SREG7 

OCTAL Values 



DATA ERROR (8IT11) OF STATUS REGISTER (COS) 

(PC) (SP) (CDS) (CDO) (CDC) (CDA) (PS) 
SERRPC, SREG6 , STMPO, STHPl , STHP2, STNP3, SREG7 
OCTAL (fALUES 



:OATA LATE ERROR (BITIO) OF STATUS 
•REGISTER (CDS) 



MQ7 



flHirCeC - 11 - DZCOe-B HPCYH 27(fa54) 

ozcoSTpii error pointer trble 



0021 lb 000000 
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823 
92S 



632 
833 
83M 



002120 0H3533 



|lP 



0"4H5t> 
CM5306 
000000 



002130 0H3677 



1^ 88li^' 



639 
8H0 
841 

t& 

§45 
646 
847 
64B 
849 

855 



14 

002136 



844456 
45306 
000000 



002140 044005 



:i42 
fl44 
002146 



044456 
0453C6 
000000 



002150 044076 



002156 



844254 
45236 
000000 



856 

859 002160 044175 

i 

863 002166 
§64 



044 iS6 
045306 
000000 



;ITtH 64 



En62 

DH4 
DTK 
0 



;ITEH 65 



EI164 

DH4 
0T4 



;ITEri 66 



EK65 

0H4 
DT4 
0 



; ITEM 67 



En66 

DHl 
OTl 
C 



; ITEM 70 



Ef167 

DH4 
DT4 
0 



(PC) (SP) (CDS) (COO) (COC) (CDA) 
lERRPC . S9EG6 , STMPO , STMP I , STHP2 , STHP3 , SREG7 
OCTAL VALUES 



SCO 0090 

(PS) 



NOT'-EXISTANT MEMORY ERROP (BITOS) OF 
STATUS REGISTER (CDS) 

(PC) (SP) (CDS) (CDD) (CDC) (CDfi) (PS) 
SERRPC, SREG6 , STMPO , STMP 1 , STHP2 , JTMPS , SREG7 
OCTAL {-ALUES 



DATA PACKING (BITOl) OF STATUS REGISTER 
(CDS) NOT SET - IT SHOULD BE 

(PC) (SP) (CDS) (CDQ) (CDC) (CDA) (PS) 
SERRPC, $REG6 , STMPt) , STMP 1 , $THP2 , STHP3 , SREG7 
OCTAL VALUES 



SHOULD BE ADDRESSING BINARY DECK - 
PROGRAM DOESN'T AGREE 

(PC) (SP) (CDS) (COO) (CDC) (COA) (PS) 
SERRPC, SREG6 , STMPO , STMPl , STHP2 , $THP3 , $REG7 
OCTAL VALUES 



CONTENTS OF STATUS REGISTER (COS) 
INCORRECT - SHOULD BE ZERO 
(PC) (SP) (CD?) (CDD) (PS) 
SERRPC, SREG6 , STMPO , STMPl , SREG7 
OCTAL WLUES 



ODD BUS ADDRESS CAUSED A TRAP IN 
NON-PACK MODE 

(PC) (SP) (CDS1 (COD) (COC) (COA) (PS) 
SERRPC, SREG6 , STMPO , STMP 1 , STMP2 , 5TMP3 , SREG7 
OCTAL (values 



N07 
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SEQ 0091 



8S1 

i 

99S 

1$ 

996 

9M 
SOS 



TO 



002450 




002S10 
002S1H 

ooasib 




012706 001 iOO 
0011% 

- 000340 

m 



BEGIN: 




11 



402 



004737 
QQS737 
1301015 
104400 

104400 
104400 
104400 
000000 
104400 



430 
000340 
014774 
001220 
015140 
0003*^0 



nV^7 000002 
002352 

^46 002342 



000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 
01476F> 

000014 
000016 
01514C 
000010 



OCOOOo 015140 64S: 

)10 65S: 
. J12 000010 66S: 
C15146 

002370 001106 

000004 

000006 

002422 000004 
176516 

000176 001136 67S: 
000174 001140 



000006 
000004 

002170 027576 

045366 
000042 

030556 
030616 
030550 
035463 
031632 

030553 



68S: 



nov 

BTC 

nov 
nov 
nov 
nov 
nov 
nov 
nov 
nov 
nov 
nov 

CLR 

nov 
nov 
nov 
nov 

CLR 

nov 

RTT 

nov 

BR 

wo 
nov 

CLR 

nov 
nov 
nov 
nov 

TST 
BR 

nov 
nov 

CHP 

nov 
nov 
nov 

JSR 
TST 
BNE 

TYPE, 

TYPE, 

TYPE 

TYPE, 

TYPE, 

HflLT 

TYPE, 



tSCnTfMi,R6 

•£^T,R6 

-6 



— ^« w.atlOTVEC 
•34g.3liOTVEC+2 ; 
eSERftOR.atEHTVCC 
i3H0.a«^nTVFC4-2 ; 
ITRflF.ifTRRPyEC 



HTRF 
•340. 



FIRST LOCflTIOM TO BE CLERRED 
nEHORY LOCATION 

LOOP BRCi( IF NO 
SETUP THE STRCK POINTER 
riOT VECTOR FOR SCOPE ROUTINE 
LEVEL 7 

rENT VECTOR FOR ERROR ROUTINE 

Cevel 7 

r.--..^ ,iTRflP VECTOR FOR TRflP CALLS 
,«.«^*TRflPVEC+2;itva 7 

•SPuAON^StPURVEC ;:POUER FRILURE VECTOR 

^ 

SETUP END-OF-PROGRfln COUNTER 
INITIALIZE NUNBER OF ITERATIONS 
:SET BIT VECTOR TO IRTRN 
IlEVFL 7 

Set srtrn to a rti 
try to do a rtt 

DUHNY PS 
AND PC 
TRY THE RTT 

RTT IS LEGAL—SET SRTRN TO A RTT 



•340.airaRVEC^2 
SENO^T.SCOPCT 
STINES 

•SRTRN.aiTBITVEC 

•340,alTBir;EC+2 

•RTI SRTRN 
•6CS atRESVEC 
-(SP5 

C64$,-{SP) 



•RTT, SRTRN 
66f 

•lO.SP iiRTT ILLEGa— CLEAN OFF THE STACK 

•RE§VECf2,a«RE5V^6 ::R£STORE TRAP CATCHER 
ITBIT i ,dtm -T- BIT SWITCH 

•.,SLPflOR INITIALIZF THE LOOP ADDRESS FOR SCOPE 

a«A , - ( SP ) SAVt ERROt VECTOR 

3^6 -(SP) 

; set up tine out vector 
try to reference hardware swr 
branch if no tineout trap occurs 
point to software swr 
ipoint to software display reg 
Restore stack 
restore error vector 



967i,4 

aSWR ; 
68S ; 
•SWREG.5UR ; 
•OI^G. DISPLAY 
(SP)+,(S^')+ ; 
(5P)> a«6 ; 
(SP)+,3«4 
•BEGiA, RETURN 



PC. 
a^42 

HEROIN 

STHES 

STADDR 

CRLF-3 

nSG31 

nSG2 

CRLF 



;SAVE RETURN POINT FOR THIS 
•SECTION FOR POWER FAILURE RETURN 
SETUP ; INITIALIZE POINTERS AND FLAGS 
TEST FOR MONITOR 
BRANCH IF nONITOR IS IN CONTROL 

;TYPE NAINDEC TITLE & REV. LEVEL 
•TYPE STARTING ADDRESSES NESSAGE 

;USER IS TO SET SR SWITCHES 
;HIT CONTINUE 




10H40Q 

m 

005737 
2S}1012 

0137% 

000002 



a025bH 




932 
S33 



93b 002b0b 

937 002612 

938 002616 

939 002620 
9M0 

9Mi 
9M2 
9H3 

9MM 002620 
9M5 002622 

946 002626 

947 002630 

948 002634 

949 002636 
950 

951 002640 

952 002642 

953 002644 
954 

955 0026% 

956 002650 

957 002652 
958 

959 Q02654 

960 002660 
%1 

962 002662 
%3 

%4 0QP670 
%5 002672 
966 

%7 002700 
966 

%9 002702 
970 002704 

971 
9"? 



000415 
104400 
104400 
032777 
001356 
0137% 
0127% 
000002 



000004 
004737 
0OQQ05 
K2713 
001401 
104001 

005714 
001»0! 
10'C02 

005715 
001401 
104003 

005777 
100011 

022777 

001415 
012737 

104040 

000410 
022777 
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B08 



SEQ 309e 



031256 
015165 

001254 



000340 
002654 



031256 
015165 

031256 
015165 

010000 176332 

000360 
002620 



HEflOIN: TYPE, 
TYPE, 
9R 

RESTRT: T5T 



NOTRP: 



64S: 



flOV 
MOV 
RTI 



TYPE, 
TYPE 
BR 

TRflPX: TYPE, 
TYPE, 
BIT 
BTC 
MOV 
NOV 
RTI 

64S: 



mOGIC 

SENULL 

T5T1 

TRFLG 

TRflPX 

PR7 -(SP) 
•644, -(SP) 



HLOGIC 

SENULL 

TSTl 

fILOGIC 

SENULL 

110000, asuR 

NOTRP 

TRflCE,-(SPJ 
•64S,-(SP) 



: WICflTE -ENTERING LOGIC TESTS" 
:TinE TO FINISH ABOVE NESSAG^ 

;G0 TO iteTRUCTION TESTS 

CHEW FOR TRflCETRflPPINC 

•IF XT, TRfl^TRflP 

; PUT NEW PS OH STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 



; INDICATE "ENTERING LOGIC 
ITIHE 



TEST?,- 

TO FINISH ABOVE f€SSAGE 
GO TO iteTRUCTIOH TESTS 
INDICATE -ENTERING LOGIC TESTS- 
TINE TO FINISH ABOVE MESSAGE 
CHECK 5U12 

BRANCH IF SET TO CLEAR TRACE BIT 
PUT NEW PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 



#TEST 1 TEST FOR INIT. OF ALL REGISTERS 

««f««««ft«f«««f «§««««««»««««§« 



025772 
000200 



tSTl 



SCOPE 
JSR 
RESET 
CNP 
BEQ 

ERROR +1 



PC, 

•200, 
IS 



CKOFFL 
3CDS 



176360 
107777 
107777 



IS: 
2S: 
3S: 



176350 
001210 



007777 176326 4S: 



TST aCDC 
BEQ 2S 
ERROR +2 

TST aCDA 
BEQ 3S 
ERROR 43 

TST aCODB 
BPL 4S 

CMP »107777,aCD0B 

BEQ 5$ _ 
MOV «107777,STMP4 

ERROR -^40 

BR 5S 

CMP »007777,aCDDB 



; CHECK FOR OFF-LINE SET 
SEND OUT INIT 

CHECK FOR STATUS REGISTER BIT 7 SET 
BRANCH IF OK 

; STATUS REGISTER NOT CORRECTLY INITIALIZED 

; CHECK FOR COLUMN COUNT CLEARED 
:BR IF OK 

; COLUMN COUNT NOT CLEARED BY INIT 

; CHECK FOR BUS ADDRESS CLEARED 
*BR IF OK 

;BUS ADDRESS NOT CLEARED BY INIT 

TEST BIT15 OF STATUS REGISTER i2 
BRANCH IF NOT SET INDICATING 
OLD CDU CONTROLLER 
IS CONTENTS OF STATUS REGISTER i2 
CORRECT FOR NO ERRORS^ 
BRANCH IF OK! 

CORRECT CONTENTS OF 'CDD' FOR 
ERROR REPORT 

CONTENTS OF 'CDDB' STATUS REGISTER 
•2 NOT = 107777 
GO TO NEXT TEST 

UE HAVE AN OLD COll CONTROLLER! 
IS CONTENTS OF STATUS REGISTER »2 
CORRECT FOR NO ERRORS' 



fl^IMOeC - li - OZCDB-fl 
DZCOe.Pll Ti 

S73 002712 001404 

974 002714 012737 
S7S 

<376 002722 104040 
S77 

978 002724 



979 
980 



983 
984 
985 
98b 
987 
988 



991 
992 
993 
994 

^ 

997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
ICIO 
1011 
1012 
1013 
1014 
1015 
I01& 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
i02& 



002724 000004 



002726 
002732 
002736 
002740 
002742 



002744 
0027% 
002752 
0027S4 



002756 
002762 
002766 
002770 

002772 



002772 
002774 
003000 
003004 
003006 

003010 
003014 
003016 

003020 
003024 
X3026 
003030 

003032 
003036 
003040 

003042 



052713 
022713 
001402 
104004 
000413 



005013 
022713 
001401 
104004 



012713 
022713 
001401 
104004 



000004 
01271H 
022714 
001401 
104005 

022713 
001401 
104004 

052713 
005714 
001401 
104006 

022713 
001401 
104004 
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TEST FOR INIT. OF ALL REGISTERS 



SEQ 0093 



007777 001210 



BEQ 5S 

nOV 1007777, STtf 4 
ERROR 440 



5S: 



;BRANCH IF OK! 

; CORRECT CONTENTS OF 'COO* FOR 
ERROR REPORT 

; CONTENTS OF 'COOB' STATUS REGISTER 
•2 NOT = 007777 



177376 
000362 



»TEST 2 TEST REflD/WITE OF STATUS REGISTER 

tST2: SCOPE 

;0NLV BITS 1.4.5. ANO 6 OF THE STATUS REGISTER SHOULD BE 
IaBLE TO BE to one and READ BACK AS ONE 
6lS 



•177376,3005 
CNP 1362, aCOS 
BEO IS 
ERROR •>'4 
BR TST3 



;SET ALL BITS BUT 0 ANO 8 
OMY BITS 1.4,5,6, ANO 7 SHOULD BE SET 
BRANCH IF 0^ 

iSTATUS REGISTER DIDN'T CONTAIN 362 

; BRANCH After failure 



000200 



177777 
000200 



:S: 



2S: 



3S: 



: CLEARING STATUS REGISTER SHOULD CLEAR BITS 1.4,5, AND 6 
tLR aCOS ; CLEAR BITS 1,4.5. ANO 6 

CNP 1200, aCDS ; CHECK FOR ALL 6lTS CLEAR BUT 7 
BEO 2S ; BRANCH IF OK 

ERROR +4 ; STATUS REGISTER DIDN'T CONTAIN 200 

: SETTING ALL BITS SHOULD 00 A POUER CLEAR 
ftov 1177777,3005 ;SET ALL BITS OF THE STATU? REGISTER 
CMP 1200, aCOS CHECK FOR ALL 3ITS CLEAR BUT 7 
BEQ 3& BRANCH IF OK 

ERROR +4 ;STATUS REGISTER DIDN'T CONTAIN 200 



177777 
177777 



000200 
000400 

000200 



fTEST 3 TEST REAO/URITE OF COLUMN COUNT REGISTER 

tST3: SCOPE 



IS: 

2S: 

3S: 
4S: 



NOV 1177777,8000 
CMP 1177777 aCDC 
BEQ IS 
ERROR +5 

CMP 1200, 3C0S 

BF.o as 

ERROR -^4 

BIS 1400, 3C0S 
TST 3C0C 
BEQ 3S 
ERROR 4-6 

CMP 1200. 3CDS 
BEQ 4S 
ERROR +4 



;L0A0 ALL BITS 
TEST TO SEE IF IT CAN BE READ 
BRANCH IF OK 

;COCC FAILED TO REAO/URITE 

; CHECK STATUS REG 
BRANCH IF OK 

; STATUS REG CHANGED 

;D0 A POUER CLEAR 
CHECK FOR COLUMN COUNT CLEfiREO 
; BRANCH IF OK 

; COLUMN COUNT NOT CLEARED BY POUER CLEAR 

; CHECK STATUS REG 
; BRANCH IF OK 

; STATUS REG CHANGED 



m;:moec - ii 
o^coe.Pii 



DZCOe-B 

TM 




027 
028 

^ 003042 

031 



034 003056 



03b 0030b0 
037 003064 
003066 



8JI 



040 003070 

041 003074 

042 003076 

043 003100 
044 

SS 003102 

6 003106 

047 003110 
048 

049 003112 

81? 

052 

053 003112 

055 003114 

056 003120 

057 003124 
056 

059 003130 

060 Q03132 

061 003136 

062 003144 

063 m3146 

064 003154 

065 003160 

066 003162 

069 003176 

070 003202 

071 003204 

072 003204 

075 003214 

076 003216 
077 

078 003220 

07S 003224 

090 003226 



000004 

12715 

14^1 
104007 

022713 
001401 
104004 

052713 
005715 
001401 
104010 

022713 
001401 
104004 



000004 

004737 
012714 
012715 

005046 
013746 
012737 
104400 
016666 
012716 
000002 
012637 
012637 
0137% 
012746 
000002 

005037 

Wii 

100001 
104011 

032713 
001402 
104012 



nflCYU 27(654) l-JUL-77 08:39 PAGE 22 
TEST READ/URITE OF DUS ADDRESS REGISTER 



DOS 



177777 
177777 



000200 
000400 

000200 



fTEST 4 TEST REflQ/WITE OF BUS flOORESS REGISTER 

tST4: SCOPE 



nov 

CMP 
BEO 
ERROR +7 



•177777, aCOfl 
•177777 aCOfl 
IS 



IS: 



2S: 



3S: 



41: 



CtIP »200, SCDS 

BEQ 2S 

ERROR +4 

BIS •400, iSCDS 

TST aCDfl 

BEO 3S 

ERROR -flO 

cnp •200, acos 

BEQ 4S 

ERROR •f4 



;LORO RLL BITS 
TEST TO SEE IF IT CRN BE READ 
BRANCH IF OK 

;COBA FAILED TO REAO/URITE 

i CHECK STATUS REG 
BRANCH IF OK 

; STATUS REG CHANGED 

;D0 A POUER CLEAR 
CHECK FOR BUS ADDRESS CLEARED 
: BRANCH IF OK 

;BUS ADDRESS NOT CLEARED BY POUER CLEAR 

: CHECK STATUS REG 
BRANCH IF OK 

; STATUS REG CHANGED 



»TEST 5 TEST CONTROLLER READY TO CLEAR BITO 



025772 
177777 
045442 



000034 

003146 000034 

000002 000006 
003162 



tSTS 
;BIT 



SCOPE 
SHOULD 
JSR 
MOV 
MOV 



ALUAYS READ AS BEING EQUAL TO ZERO 

PC, CKOFFL ; CHECK FOR OFF-LINE SET 

3CDC ;SET UP COLUMN COUNT TO READ 1 COLUMN 
•BU^BEG.SCDA :SET UP BUS ADDRESS 



THE FOLLOWING ^PRESENTS THE EQUIVALENT OF "MOV PS.PROC" 



000034 
001256 
000000 
003204 



001250 



000001 



64S: 



&5S: 



66S: 



LOOPS: 



6lr 

MOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 
MOV 
MOV 
RTI 

CLR 

INC 

TSTB 

BPL 

ERROR 

BIT 
BEQ 
ERROR 



-(SP) 
34.-(SP) 
•641,34 

2(SP),6(5P) 
•65S, (SP) 

(SP)+,34 
(SPH.PROC 
PRO.-tSP) 
»66S,-(SP) 



COUNT 

acos 
acDS 

LOOPS 

+11 



::SAVE CURRENT TRAP VECTOR 

SETUP NEU TRAP VECTOT 
;;PUSH OLD PSU AN PCON STACK 

:; REPLACE OLD PC WITH NEU 
RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 

PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 

: INITIALIZE COUNTER 
START READING A CARD 
CHECK FOR CONTROLLER READY CLEARED 
BRANCH IF OK 

; CONTROLLER READY DIDN'T CLEAR 



•1. 
IS 

+12 



acos 



; CHECK BIT 0 
BRANCH IF NOT SET 

;BIT 0 READ AS A 



ONE 



n^INOEC - 11 - DZCOB-B 
DZCDB.Pll T5 



PWCYll 27(bSH) 1-JUL -77 08:3<9 PACE 23 
TEST CONTROLLER REfiOY TO CLEftR BITO 



ED 



8 



SEQ 00% 



081 0032X 

082 003232 



085 0032HM 
08b 




Ml 

092 0032f>2 
13 003264 




0% 00327H 
0^7 003276 
098 

OSS 003300 
100 
101 
102 



0OOM23 
005237 

0127% 
000002 

105713 
100401 

mil 

100002 
104014 
000404 
03271? 
001401 
104015 



001250 

001256 
003252 



177577 



BR 
INC 
BNE 

nov 

MOV 
RTI 

TSTB 
Bfll 
ERROR 
TST 
BPL 
ERROR 
BR 
BIT 
BEQ 



TST6 
COUNT 
LOOPS 
PR0C,-(SP) 
•64S,-(SP) 



; BRANCH AFTER FAILURE 
;UAIT ABOUT 



103 


003300 


000004 






104 










105 










106 


003302 


004737 


025772 




107 


003306 


005013 






108 


003310 


012714 


177754 




lOS 


003314 


012715 


045442 




110 


003320 


005213 






111 


003322 


032713 


000004 




112 


003326 


001401 






113 


003330 


104016 






114 


003332 


005037 


001250 




115 










116 


003336 


0050% 






117 


003340 


013746 


000034 




116 


003344 


012737 


003354 


000D34 


US 


003352 


104400 






120 


003364 


016666 


000002 


000006 


121 


003362 


012716 


003370 




122 


003366 


000002 






123 


003370 


012637 


000034 




124 


003374 


012637 


001256 




125 


003400 


013746 


000000 




1126 


003404 


012746 


003412 




1127 


003410 


000002 






128 


003412 








12S 


003412 


105713 






[130 


003414 


100405 






1131 


003416 


005337 


001250 




L132 


003422 


001?73 






1133 


003424 


104013 






1134 


003426 


000413 







IS: 

64S: 
2S: 
3S: 
4S' 

»TEST 6 TEST BIT2 TO BE CLEAR AFTER CARD READ 

tST6: SCOPE 
;IT SHOULD REMAIN NOT SET 
THIS SHOULD HAPPEN UITHIN ABOUT 



ERROR 415 



acDS 

2S 

+13 

acos 

3S 

+14 
TST6 

•177577, aCDS 
41 



PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 

: CHECK CONTROLLER READY 
;CONTINUE IF SET 

.-CONTROLLER READY DIDN'T SET UITHIN 1 SEC 

; ERROR BIT SET 

{CHECK FOR ANY OTHER BITS 
; BRANCH IF OK 

;EXrRA BIT(S) SET 



IS: 



&4S: 



65S: 



bbS: 
L00P6A: 



1 SECOND 

CHECK FOR OFF-LINE SET 
INITIALIZE STATUS REGISTER 
SET UP COLUMN COUNT TO READ 20 COLUMNS 
SET UP BUS ADDRESS 
READ A CARD 
CHECK HOPPER EMPT'/ 

: HOPPER EMPTY SET 
:SET UP ilAIT COUNTER 



JSR PC.CKOFFl 

CLR acDs 

MOV 1-20.. aCDC 
MOV iBUFB^G.aCOA 
INC aCDS 
BIT •4,aCDS 
BEQ If 
ERROR +lb 
CLR COUNT 

:THE FOLLOWING REPRESENT^ ^he EQUIVALENT OF "MOV PS.PROC" 



tLR 
MOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 
MOV 
MOV 
RTI 

TSTB 

BMI 

DEC 

BNE 

ERROR 

BR 



-(SP) 
34, -(SP) 
•bA$,34 

2(SP),6(SP) 
«65S,tSP) 

(SP)+,34 
(SP)+.PROC 
PRO.-(SP) 
i&6i.-(SP) 



9CDS 
LOOPbB 
COUNT 
L00P6A 
+13 
TST7 



SAVE CURRENT TRAP VECTOR 
SETL'P NEU TRAP VECTOT 
••PUSH OLD PSU AN PCON STACK 

: {REPLACE OLD PC UITH NEU 
:; RESTORE PSU 

; {RESTORE OLD TRAF VECTOR 

PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 

{CHECK READY 
BRANCH IF READY 
•UAIT ABOUT 1 SEC. 

{READING A CARD DIDN'T SET READY 



OZCOB.Pll 



r 



- DZCDB-B 



37 00343S 




41 QQ3H44 

4| ()0344b 

44 M3M50 
47 

4| ra345b 

50 

51 

52 X345& 

53 0034b0 

54 003464 
55 

Sb 003S7G 





14 

1&2 003S20 
lb3 
164 

165 

Ibb 003S40 

167 QQ3|44 

168 SgSO 

169 D03S52 
170 

171 X3S52 
003554 
003560 

m 

7b 




185 003638 

186 003640 

187 003644 

188 003646 



013746 
01274b 
000002 

105713 
100401 
104017 

005713 
100001 
104014 



000004 
004737 
012712 

00504b 
0137% 
012737 
104400 

{|^ 
000002 
lgb37 
37 
37 
0137% 

^02 



00504b 
01374b 
012737 
104400 
016666 
012716 

& 

012662 

006046 
013746 
012737 
104400 
016666 
012716 
000002 
012637 



mCYll 27(b54) 
TEST BIT2 TO BE 



00125b 
003442 



l-JUL-77 08:39 PAGE 24 
CLEIW fV'TER CARD REM) 



F08 



SEQ 00% 



LOOPbB: 






(SP) 


MOV 


PROC.- 




MOV 


•b4I,- 


(5r) 




RTI 




b4|: 








LOOPb: 


TSTB 


SCDS 






BHI 


DONEb 






ERROR +17 




OONEb: 


TST 


9C0S 






BPL 


IS 






ERROR +14 





;;PUT NEU PS CM STACK 
;: PUT NEW PC ON STACK 
; I POP NEU PC AND PS 

; CHECK CONTROLLER READY 
BRANCH IF SET 

; RESTORING STATUS RESET READY 

: CHECK ERROR HIT 15 
BRANCH IF OK 

; ERROR BIT 15 MAS SET 

1$. 

UtEST 7 TEST INTERRUPT FROM CONTROLLER READY 



025744 
003740 



000034 

00350b 000034 

000002 00000b 
003522 

000034 
001214 

000340 001214 

001214 

003552 



000034 

003570 000034 

000002 00000b 
003b04 

000034 
000002 



000034 

003b32 OQC:,<l 

000002 00000b 
003b4b 

000034 



tST7: 



SCOPE 

JSR PC. INIT ; INITIALIZE 
MOV iTtNT7,aA0INT IlOAD RETURN POINTER 
THE FOLLOWING REPRESENTS THE EQUIVALENT OF 
-(SP) 
34. -(SP) 
•b4s,34 



b4S: 



bSS: 



bbS: 



b75: 



b8S: 



6lr 

MOV 
MOV 
TRAP 
rtOV 
MOV 
RTI 
MOV 
MOV 
BIS 
MOV 
MOV 
RTI 

iTHE 

6lr 

MOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 



'BIS 1340, PS" 



2(SP).b(SP) 
•bSS, ISP) 

(SP)+,34 

(SP)+!STMPb 

•340,4TMPb 

STMPb,-(SP) 

•bbS,-(SP) 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
PUSH OLD PSU AN PCON STACK 



UITH NEU 



REPLACE OLD PC 
■ 'RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 



:PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 



FOLLOHING REPRESENTS THE EQUIVALENT OF "MOV PS,2(ADINT)' 
-(SP) 
34. -(SP) 
•btl,34 



2(SP),b(SP) 
•bSS.lSP) 

(SP)+,34 
(SP)+ 2(A0INT) 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
PUSH OLD PSU AN PCON STACK 



REPLACE OLD PC UITH NEU 
;; RESTORE PSU 

RESTORE OLD TRAP VECTOR 

THE FOLLWINfi^REPRESENTS THE EQUIVALENT OF "BIC 1340, PS" 



b9S: 



'0$: 



6lr 

MOV 

MOV 

TRAP 

MOV 

MOV 

RTI 

MOV 



-(SP) 
34. -(SP) 
lb^S,34 

2(SP),b(SP) 
i70S,lSP) 

(SP)+.34 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
■jPUSH OLD PSU AN PCON STACK 

;; REPLACE OLD PC UITH NEU 
RESTORE PSU 

RESTORE OLD TRAP VECTOR 



Dzcoe.Pii 



11 




7H 
003b7b 
00367b 
003702 
003706 
003712 
003714 

00371b 
003722 

003730 

90373'^ 
00373b 

0037M0 

0037M2 

0037MM 

0G37Mb 

003750 

003752 

00375M 

00375b 

003760 

0037b4 



003770 
003772 
00377b 

004010 
00S016 
OOM020 
OOS026 

OOMOHO 
OOMOHM 

00M062 
00M064 

004064 
004066 



1194 
1195 
11% 
1197 
1198 
ii99 
1200 
1201 
12C2 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
122'} 
1230 
1231 
1 ^ 
1 

1234 
1235 

il^ 

1238 
1239 
1240 
1241 
1242 



DZCOB-B 
T7 

012637 
042737 
0137% 
0127% 
000002 

012714 
012715 
012713 
105713 
100376 

01624b 
012746 
000002 

042713 
104020 
000410 
105713 
100401 
104023 
022626 
005713 
iOOOOl 
104014 
005013 
012712 
005037 



000004 
004737 
012712 

005046 
013746 
012737 
104400 
016666 
012716 
000002 
012637 
012637 
052737 
013746 
01S746 
000002 



fWCYli 27(654) l-JUL-77 08:39 PAGE 25 
TEST INTERRUPT FROM CONTROLLER REfM)Y 



G03 



SEQ 0097 



001214 
000340 



177741 
045442 
000101 



000002 
003730 



000100 



001214 



005046 
013746 



000232 
000232 



025744 
004150 



000034 

004020 000034 

000002 000006 
004034 

000034 
001214 

000340 001214 

001214 

004064 



000034 



71$: 
IS: 

72$: 

TINT7: 
1$: 



2$: 

C0NT7: 



nOV (SP) + .$TI1P6 

BIC •340,iTnP6 

NOV $TMPfe,-(SP) 

NOV §71$, -(SP) 
RTI 

MOV i-31.. 3CDC 

nOV IBUFB£G,3C0A 

nOV tlOl, 9CDS 

TSTB aCDS 

BPL IS 



PUT NEW PS ON STACK 
PUT NEW PC ON SJdCK 
POP NEU PC AND PS 



;SET UP COLUMN COUNT TO REftD 31 COLUMNS 
•SET UP BUS ADDRESS 

SET INTERRUPT ENABLE AND READ 

UAIT FOR CONTROLLER READY 



THE FOLLOUING REPRESENTS THE EQUIVALENT OF "MOV 2(ADINT) ,PS" 



ftov 

MOV 
RTI 



2(ADINT).-(SP) 
•72$, -(SP) 



BIC 1100, 
ERROR *20 



BR 

TSTB 
BMI 



ERROR +23 



C0NT7 
SCOS 
IS 



CMP 
TST 
BPL 



ERROR +14 



(SP)+, 

aCDS 

2S 



acDs 



(SP) + 



CLR 
MOV 
CLR 



SCOS 

•232.flA0INT 
Si232 



PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 



; CLEAR INTERRUPT ENABLE 

;N0 INTERRUPT OCCURRED 

: CHECK CONTROLLER READY 
BRANCH IF SET 

: CONTROLLER READY NOT SET 
•.RESTORE STACK POINTER 
■MAKE SURE NO ERROR OCCURRED 

;BIT 15 UAS SET 
; DISABLE INTERRUPTS 
CHANGE INTERRUPT RETURN ADDRESS 
TO CAUSE A HALT IF AN INTERRUPT OCCURS 



♦TEST 10 TEST NO INTERRUPT ON CONTROLLER READY & CPU AT LEVEL 7 

TST 10: SCOPE 

JSR PC. INIT INITIALIZE 
MOV «TtNT10.aADINT rSETUP RETURN 
:THE FOLLOWING REPRESENTS THE EQUIVALENT OF "BIS §340, PS" 



b4$: 



65S: 



bb$: 



tLR 
MOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 
BIS 
MOV 
MOV 
RTI 



-(SP) 
34. -(SP) 
«64$,34 

2(SP),6(SP) 
•65S,lSP) 

(SP)+,34 

(SP)+.STMP6 

•340,JtMP6 

STMP6,-(SP) 

•bbS,-(SP) 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
;;PU5H OLD PSU AN PCON STACK 

:; REPLACE OLD PC WITH NEU 
RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 



PUT NEU PS ON STACK 
PUT NEW PC ON STACK 
POP NEU PC AND PS 



:THE FOLLOUING REPRESENTS THE EQUIVALENT OF "MOV PS,2(ADINT)' 
CLR -(SP) 

MOV 34, -(SP) I -SAVE CURRENT TRAP VECTOR 



H08 



n^ilMOEC - 11 - DZCD8-B flACYll 27(654) l-JUL-77 08:39 PftGE Eb 

DZCOe.PU TIO TEST NO INTERRUPT OH CONTROLLER READY & CPU AT LEVEL 7 



SEQ oose 




243 
44 
4 

4 

^ 

240 
25C 
2S1 
252 

1258 
1259 
I2b0 
12bl 
12b2 
12b3 
12b4 
12b5 
IZbb 
12b7 
<2be 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
127b 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 

1288 
1289 
1290 
1291 
12*22 
1293 
l?94 
12% 



004072 



3b 
42 
44 
4b 
50 
52 
54 
5b 
62 



004166 
004170 
0GM174 

004200 
004202 
(^4206 
004214 
004216 
004224 
004230 
004232 
004236 
004242 
004250 
004254 
004260 
004262 

004262 
004264 
004270 
004276 

004300 
00430b 
C04312 



012737 
104400 



012662 
012714 
012715 
012713 
105713 
■137b 
3402 
104021 
022b2b 
005013 
012712 
005037 



000004 
004737 
012712 

00504b 
01374b 
012737 
104400 
016666 
012716 
000002 
012637 
012637 
0S2737 
013746 
012746 
000002 



00S04b 
01374b 
012737 
104400 
Olbbbb 
012716 
000002 



004102 



lOOOc 
4116 



000034 
000002 
177703 
045442 
000101 



000232 
000232 



025744 
00455b 



000034 
004216 

000002 
004232 

000034 
001214 
000340 
001214 
004262 



000034 
004300 

0Q0002 
004314 



000034 
000006 



MOV 
TRAP 
67$: NOV 
MOV 
RTI 

68$' MOV 
MOV 
MOV 
MOV 
MOV 

IS: TSTB 
BPL 
BR 

TINTIO: ERROR 
CMP 

TIOGO: CLR 
MOV 
CLR 



•671,34 

2(SP).b(SP) 
»b8S,(SP) 

(SP)+,34 

(SP)+,2(A0INT) 

i-bl.' aCDC 

IBUFB^Q,9CDA 

1101, 9CDS 

•ICD3 

IS 

TIOGO 
+21 

(SP)+,(SP)+ 
9CDS 

I232.9A0INT 
3i23^ 



;; SETUP NEW TRAP VECTOT 
;;PUSH OLD PSU AN PCON STACK 

:; REPLACE OLD PC WITH NEU 
; {RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 

;SET UP COLUMN COUNT TO READ bl COLUMNS 

SET UP BUS ADDRESS 

SET INTERRUPT ENABLE AND READ 
lUAIT FOR CONTROLLER READY 

•.CONTINUE IF NO INTERRUPT OCCURRED 
;AN INTERRUPT OCCURRED 

; RESTORE FTACK POINTER 
CLEAR INTERRUPT ENABLE 
CHANGE INTERRUPT RETURN ADDRESS 
TO CAUSE A HALT IF AN INTERRUPT OCCURS 



FIND THE LEVEL AT WHICH AN INTERRUPT OCCURS 

PRINT OUT A MESSAGE STATING THIS LEVEL IF IT IS OTHER THAN THE STANDARD 
(LEVEL b) MAKE CERTAIN THAT IT ALWAYS OCCURS AT THIS LEVEL 
THE MESSAGE STATING THE LEVEL IS PRINTED ONLY ONCE. AND THE PROGRAM MUST 
BE STARTED OVER AT LOCATION 200 FOR IT TO BE PRINTED AGAIN 

»TEST 11 TEST FOR AN INTERRUPT ON LEVEL 7 

««««««««««««««««««««««««««««»««««««««««««««««««»««««««««««•««»« 

tSTU: SCOPE 

JSK PC. INIT ; INITIALIZE 
MOV iTtNTU.aADINT [SETUP RETURN ADDRESS 
:THE FOLLOWING ftEPRESENT^ THE EQUIVALENT OF "BIS 1340, PS" 



000034 
000006 

001214 



000034 
OOUOOb 



b4S: 



bSS: 



bbS: 



67S: 



fcLR 
MOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 
BIS 
MOV 
MOV 
RTI 



-(SP) 
34, -(SP) 
t64S,34 

2(SP\6(SP) 
i65I,(SP) 

(SP)+,34 

(SP)+ISTMP6 

•340.iTnP6 

$TMP6,-(SP) 

•66S,-(SP) 



SAVE CURRENT TRAP VECTOR 
SETUP NEW TRAP VECTOT 
••PUSH OLD PSW AN PCON STACK 

REPLACE OLD PC WITH NEW 
;; RESTORE PSW 

RESTORE OLD TRAP VECTOR 



PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEW PC AND PS 



THE FOLLOWING REPRESENTS THE EQUIVALENT OF "MOV PS,2(A0INT)' 



6lr 

MOV 

MOV 

TRAP 

MOV 

MOV 

RTI 



-(SP) 
34. -(SP) 
I6>S.34 

2(SP).b(SP) 
ib8$,(SP) 



SAVE CURRENT TRAP VECTOR 
SETUP NEW TRAP VECTOT 
J -PUSH OLD PSW AN PCON STACK 

:: REPLACE OLD PC WITH NEW 
:; RESTORE PSW 



fl^INOEC - 11 

Dzoa.pii 



1297 
1298 
1299 
1300 
1301 

i30H 

m 

1310 
1311 
1312 
1313 
131H 
1315 
131b 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
132M 
1325 
132b 
1327 
1328 
1329 
1330 

1333 
1334 
1335 
133b 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
134b 
1347 
1348 
1349 
1350 



004314 
004320 

004324 
004326 

004342 



DZCDB-B 
TU 

0l2b37 
012bb2 

00504b 
0i374b 
012737 
104400 
Olbbbb 




004374 
QQ4400 
004404 
00440b 

ffi440b 
4410 
0QS414 
004422 
004424 
004432 
00443b 
004440 
004444 
004450 
00445b 
0044b2 
0044bb 
004470 
004470 
004474 
004500 
QQ4504 
00450b 

004510 
004514 
004520 
004522 
004522 
004524 



»40 
004542 

004554 
0Q455b 
0045bO 
0045b2 
0045b4 




Ci2b37 
Q12b37 
042737 
01374b 
Ql274b 
000002 

mt 

012737 
104400 
Olbbbb 
01271b 
000002 
012b37 
0l2b37 
052737 
')l374b 
01274b 
000002 

012714 
012715 
012713 
105713 
10037b 

Qlb24b 
Ol27Hb 
000002 

005013 
01271E 
37 
37 
001441 
023727 
100435 
104022 
000433 
105713 
100401 
104023 
005013 
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IDS 



SEO 0099 



000034 
000002 



000034 
004342 

000002 
00435b 

000034 
001214 
000340 
001214 
004'-IOb 



000034 
00"424 

000002 
004440 

000034 
001214 
000300 
001214 
004470 



i77bb0 
045442 
000101 



000002 
004522 



bOI: 

000034 
00000b b9S: 



001214 



70S: 



71S: 



000034 
00000b 72S: 



001214 



73S: 

745: 
IS: 

75$: 



000232 
000232 
001252 

001252 100007 



HOV (SP)+,34 
nOV (SP)+.2(flDINT) 
THE F0LL0WIN6 REPRESENTS 



tlR 
flOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 
BIG 
MOV 
MOV 
RTI 

CLR 

MOV 

MOV 

TRAP 

HOV 

MOV 

RTI 

MOV 

MOV 

BIS 

MOV 

MOV 

RTI 

MOV 
MOV 
MOV 
TSTB 
6PL 



-(SP) 
34. -(SP) 
•b^,34 

2(SP),b(SP) 
|70S,(SP) 

(SP)+,34 

(SP)+I$TMPb 

•340,iTMPb 

$TMP6,-(SP) 

•71S,-(SP) 

-(SP) 
34. -(SP) 
M72S,34 

2(SP),b(SP) 
t73$,lSP) 

(SP)+,34 

(SP)+!STMPb 

iSOO.iTMPb 

$TMP6,-(SP) 

•74S,-(SP) 

t-80.. acoc 

lBUFBEG,aCDA 
ilOl, 3C0S 
9C0S 
IS 



;; RESTORE OLD TRPP VECTOR 

THE EQUIVALENT OF "BIC 1340, PS" 

ISAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
•PUSH OLD PSU AN PCON STACK 

:; REPLACE OLD PC WITH NEM 
. RESTORE PSW 

; {RESTORE OLD TRAP VECTOR 



PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
PUSH OLD PSW AN PCON STACK 



:: REPLACE OLD PC UITH NEU 
;; RESTORE PSU 

; {RESTORE OLD TRAP VECTOR 

;;PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
; I POP NEW PC AND PC 

;SET UP COLUHN COUNT TO READ 80 COLUMNS 
SET UP BUS ADDRESS 
SET INTERRUPT ENABLE AND READ 
WAIT FOR CONTROLLER READY 



THE FOLLOWING REPRESENTS THE EQUIVALENT OF "MOV 2(ADINT),PS" 



TINTll; 
IS: 



MOV 
RTI 

CLR 

MOV 

CLR 

TST 

BEQ 

CMP 

BMI 

ERROR 

BR 

TSTB 

BMI 

ERROR 

CLR 



2(A0INT).-(SP) 
•75$. -(S^) 



acos 

1232. 
31232 

INTFLG 
TST12 
INTFLG, 
TST12 

♦22 
TST12 
aCDS 
1$ 

♦23 
aCDS 



aAOINT 
1100007 



PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 

DISABLE INTERRUPTS 

CHANGE INTERRUPT RETURN ADDRESS 

TO CAUSE A HALT IF AN INTERRUPT OCCURS 

TEST FOR A PREVIOUS INTERRUPT 

BRANCH IF NONE 

CHECK PREVIOUS LEVEL 

BRANCH IF LOUER 

{INTERRUPT ALREADY OCCURRED AT LVL 7 OR HIGHER 

{HAKE SURE CONTROLLER READY IS SET 
BRANCH IF SET 

{CONTROLLER READY WASN'T SET 
{DISABLE FURTHER INTERRUPTS 



JQ8 



n^iNocc - 11 - Dzcoe-e 
ozcoe.Pii Tu 



351 OOHibb 
357 004614 





_ 1 004M7 
3b2 004630 
383 004632 
4 QQ4640 
004642 



I464M 
14646 
14652 



1371 
1372 

{^74 Wt^ 

1375 004664 

li?^ 884^74 

13/8 004702 

1373 0047% 

1380 U04710 

1381 004714 

1382 004720 

1383 004726 

1384 004732 

1385 004736 

1386 004740 
1387 

1388 004740 



138S QQ4742 

1390 0047% 

1391 004754 
13% 004756 
1393 004764 
n94 004770 
1395 004772 
13% 004776 
1397 

1398 005002 

1400 S8i8lO 

1401 005016 

1402 0QSQ2P 

1403 005026 

1404 005032 



37 

104400 
012746 
104402 
001 
000 
000405 
023727 
100001 
104024 



000004 
0047:^7 
012712 

012737 
104400 
016666 
012716 
000002 
012637 
CI 2637 
052737 
013746 
012746 
000002 



005046 
013746 
012737 
104400 
016666 
012716 
000302 
01263*' 
012662 

005046 
013746 
012737 
104400 
016666 
012716 
000002 
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SEQ 0100 



000232 
000232 

001252 

100007 
031741 
000007 



001252 



001252 100007 SET7: 



025744 
005234 



000034 
004674 

000002 
004710 

000034 
001214 
000340 
001214 
004740 



000034 
004756 

000002 
004772 

00003S 
000002 



000034 
005020 

000002 
005034 



MOV 

M 

TST 

Bni 

MOV 
TYPE, 
MOV 
'^YP05 
.BYTE 
.BYTE 
BR 
CMP 
BPL 
ERROR 



•232. 

INTFLt 

SET7 

1100007 

MSG4 

i7,-(SP) 

1 
0 

TST12 
INTFLG, 
TST 12 
♦24 



aftOINT iCHRNGE INTERRUPT RETURN fiODRESS 

CHECK FOR PREVIOUS FLAG 
[branch if FLAG SET 
INTFLG :§ET FLAG AND LEVEL 

; PRINT MESSAGE "THE INTERRUPT LEVEL HAS" 



•100007 ; CHECK PREVIOUS LEVEL 



INTERRUPT ALREAOY OCCURRED AT A LOWER LEVEL 



«TEST 12 TEST FOR AN INTERRUPT ON LEVEL 6 

#*«»«»»«*«*«»»««««»«»»««»"»««**»«««»«»««**"**««*»************ 



tST12: 



SCOPE 

JSR PC. INIT ; INITIALIZE 
MOV •TtNT12.aA0INT : SETUP RETURN ADDRESS 
THE FOLLOWING fePRESENTS THE EQUIVALENT OF "BIS «340,PS" 



000034 
000006 

001214 



000034 
000006 



64S: 



65S: 



66S: 



67S: 



68S: 



iLR 
MOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 
BIS 
MOV 
MOV 
RTI 

:THE 
iLR 
MOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 



■CSP) 
34,-(SP) 
ttb4S,34 

2(SP).6(SP) 
•65S, (SP) 

(SP)+,34 

(SP)+.STMP6 

•340.4TMP6 

STMP6,-(SP) 

«tSS,-(SP) 



SAVE CURRENT TRAP VECTOR 
:: SETUP NEW TRAP VECTOT 
••PUSH OLD PSU AN PCON STACK 

*' REPLACE OLD PC WITH NEi I 

;; RESTORE PSW 

RESTORE OLD TRAP VECTOi' 



PUT NEW PS ON STACK 
PUT NEW PC ON STACK 
POP NEW PC AND PS 



FOLLOWING REPRESENTS THE EQUIVALENT OF "MOV PS,2(ADINT)' 
-(SP) 
34. -(SP) 
•6?'S,34 



2(5P),6(SP) 
•6RS. iSP) 

(SH)+,34 
(5P)+.2(ADINT) 



SAVE CURRENT TRAP VECTOR 
SETUP NEW TRAP VECTOT 
PUSH OLD PSW AN PCON STACK 



:; REPLACE OLD PC WITH NEW 
. 'RESTORE PSW 

RESTORE OLD TRAP VECTOR 

THE FOLLOWINrREPRESENTS THE EQUIVALENT OF "BIC »340,f'S" 



OO0J34 
000006 



69S: 



tLR 
MOV 
MOV 
TRAP 
MOV 
MOV 
RTI 



-(SP) 
34. -(SP) 
•64s, 34 

2(SP),6(SP) 
•70J,lSP) 



SAVE CURRENT TRAP VECTOR 
SETUP NEW TRAP VECTOT 
; I PUSH OLD PSW AN PCON STACK 

" :; REPLACE OLD PC WITH NEW 

.•;RESTORF PSW 



Dzcoe.pu 



00503M 
00504C 



DZCOe-B 
T12 

0l2b37 
012637 




mi 

1413 
1414 
1415 
141^ 
1417 
1418 
1"1S 
1420 
1421 
1422 
1423 
1424 
1425 
142b 
1427 
1428 
1428 
1430 
1431 
1432 
1433 
1434 
1435 
143b 
14J7 
1438 
14J9 
1440 
1441 
144P 
14H3 
14H4 
I4HS 
144fa 
J 447 
.448 

14bO 
IMSl 
14S2 
14S3 
1454 
1455 
1456 

145" 

1458 



88li^ 

005114 
0051 ]b 
005122 
00512b 
0^5134 
005140 
005144 
0051% 
00514b 
005152 
00515b 
005 lb2 
005164 

0051bb 
005172 
00517b 
005200 
005200 
005202 
0OS2Ob 
205212 
00521b 
005220 
00522b 
005230 
D05232 
005234 
005236 
005240 
005242 

uSIIso 

005254 
00525b 
0052b2 
005264 
005272 
005276 
005302 
005304 



00S046 
013746 
012737 
10M400 

m 

000002 
012637 
012637 
052737 
013746 
Q 12746 
000002 

012714 
012715 
012713 
105713 
100376 

016£46 
01274L 
000002 

005013 
012712 
005037 
005737 
001441 
023727 
100435 
J 04022 
Cn0433 
11:5713 
lOU-'Ol 
104023 
005013 
012712 
005037 
022626 
005737 
100412 
012737 
104400 
012746 
104402 
001 
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K08 



SEQ 0101 



000034 
001214 




121 



001214 



70S: 



7H: 



000034 

005102 000034 



002 000006 72S: 

05116 



000034 
001214 

000240 001214 

001214 

005146 



177660 
045442 
00010'. 



000002 
006200 



000232 
000232 
001252 

001252 100006 



73$: 



74$: 



1$: 



75$: 



000232 
000232 

001252 

100006 00125c 

0317')1 

000006 



TINT12: 



1$: 



NOV 
NOV 

[C 



MOV 
RTI 

CLR 

flOV 

NOV 

TRRP 

MOV 

MOV 

RTI 

MOV 

MOV 

BIS 

MOV 

.10V 

RTI 

MOV 
MOV 
MOV 
TSTB 
BPL 



(SP)+,34 
(SP)+.$THP6 

•71$, -(SP) 



-(SP) 
34. -(SP) 
•7^$, 34 



;; RESTORE OLD TRAP VECTOR 



2(SP), 
•75$, ( 



6(SP) 
SP) 



(SP)+,34 
(SP)+.$TMP6 
•240,tTHP6 
$TMP6, -(SP) 
•74$, -(SP) 



•-80.. aCDC 
•BUFB^G.aCDA 

•101, acos 

9C0S 
1$ 



::PUT NEW PS ON STACK 

PUT NEW PC ON STOCK 
: : POP NEU PC WC PS 



;SfiVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
■•PUSH OLD P5U AN PCON STACK 

REPLACE OLD PC WITH NEW 
;; RES TORE ?SU 

RESTORE OLD TRAP VECTOR 



PUT NEW PS ON STACK 
PUT NEW PC ON STACK 
POP NEW PC AND PS 



:SET UP COLUMN COUNT TO READ 80 COLUMNS 
SET UP BUS ADDRESS 
SET INTERRUPT ENABLE AND READ 
WAIT FOR CONTROLLER READY 



THE FCLLOWING REPRESENTS THE EQUIVALENT OF "MOV 2(ADINTj,PS" 



fjOV ' 2(ADINT),-(SP) 

MOV •75$, -(Sn 
RTI 

CLR SCD5 

MOV «232. SADINT 

CLR a«232 

TST INTFLG 

BEQ TST 13 

CMP INTFLG, •lOOOOb 

BMI TST 13 

ERROR +22 

BR TST 13 

TSTB 3CDS 

BMI 1$ 

ERROR -^23 

CLR aCDS 

MOV •232. aADINT 

CLR a»23^ 

CMP (SP)+. (SP)+ 

TST INTFLG 

BMI SETb 

MOV •lOOOOb, INTFLG ; 

TYPE, MSG4 

MOV •6,-(SP) 

TYPOS 

.BYTE 1 



PUT NEW PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 

DISABLE INTERRUPTS 

CHANGE INTERRUPT RFTURN ADDRFSS 

TO CAUSE A HALT IF AN INTERRUPT OCCURS 

TEST FOR A PREVIOUS INTERRUPT 

BRANCH IF NONE 

CHECK PREVIOUS LEVEL 

BRANCH IF LOUER 

; INTERRUPT ALREADY OCCURRED AT LVL 6 OR HIGHER 

;MflKE SURE CONTROLLER READY IS SET 

BRANCH IF SET 

: CONTROLLER READY WASN'T SET 
; DISABLE FURTHER INTERRUPTS 

CHANGE INTERRUPT RETURN ADDRESS 

TO CAUSE A HALT IF AN INTERRUPT OCCURS 

RESTORE STACK POINTER 

CHECK FOR PREVIOUS FLAG 
[GRhNCH if FLAG SET 

Set flag and level 

; print message "the interrupt level was" 



PI^INOEC - 

Dzcoe Pii 



141 
1%1 
14£>2 
14fc3 
14b4 
1465 
1466 
1467 
1468 
146<3 
147C 
1471 
147^ 
1473 
1474 
1475 
1476 
1477 

1478 
147'? 
14B0 
1481 
1482 
1483 
1484 
1485 

\^ 

I486 
1489 
1490 
14<31 
1492 
1493 
1494 
1495 

1498 
1499 
1500 
ISOI 

1" 
I 

1504 
1 

1^ 

1509 
1510 

iiu 

1512 



11 
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LOS 




>2 
005376 
005404 
005410 
005414 
005416 

005416 
005420 
005424 
00SS32 
005434 

^ 

005450 
005454 

005466 

^^474 
476 
SON 
"10 
12 
005516 



8^ 

005542 
005542 

S50 



SEQ 0102 



005310 

18 



005322 
005324 
005330 

005334 
005336 
005342 
005350 



000 
000405 

023727 001252 100006 

100001 

104024 




000004 
004737 
012712 



005046 
013746 
012737 
104400 

W& 

000002 
2637 
2637 
052737 
013746 
012746 
000002 



005046 
013746 
012737 
104400 
016666 

S^ol 

012637 
012662 

012737 
104400 
Q16666 
012716 



Qiai37 
012637 
042737 
0137% 
012746 
000002 



025744 
005712 



000034 
005352 

000034 
001214 
000340 
001214 
005416 



000034 
005434 

000002 
005450 

000034 
000002 



000034 
005476 

000002 
005512 

000034 
001214 
000340 
001214 
005542 



•BYTE 0 

BR TST13 

SET6: CMP INTFLG, §100006 ; CHECK PREVIOUS LEVEL 

BPL TST13 

ERROR >24 : INTERRUPT RLREWY OCCURRED AT R LOUER LEVEL 

«TEST 13 TEST FOR RN INTERRUPT ON LEVa 5 

1st 13: SCOPE , 

JSR PC^ INIT ; INITIALIZE 
MOV •TtNT13.aflOINT [SETUP RETURN ADORtSS 
THE FOLLOWING REPRESENTS THE EQUIVW.ENT OF "BIS §340, PS" 



000034 
000006 

001214 



000034 
000006 



64S: 



65S: 



66S: 



6/S: 



68S: 



00003S 
000006 

001214 



0050% 
13746 000034 
12737 005560 



69S: 



70f: 



71$: 



6lr 

MOV 

NOV 

TRAP 

MOV 

MOV 

RTI 

MOV 

MOV 

BIS 

MOV 

MOV 

RTI 



-(SP) 
34.-(SP) 
•64s, 34 



2(SP),{ 
•65S, tl 



i(SP) 

;p) 



(SP)+,34 

(SP)+.5TMP6 

•340,iTMP6 

STHP6,-(SP) 

I66S,-(SP) 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
i -PUSH OLD PSU AN PCON STACK 

:; REPLACE OLD PC WITH NEU 
. . p£STORE PSU 

;; RESTORE OLD TRAP VECTOR 



PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AMD PS 



THE FOLLOUING REPRESENTS THE EQUIVALENT OF "MOV PS,2(ADINT)' 



6lr 

MOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 



(SP) 
34. -(SP) 
•6^S.34 

2(SP),6(SP) 
l6eS,(SP) 

(SP)+,34 
(SP)+!2(ADINT) 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
;;PUSH OLD PSU AN PCON STACK 

:; REPLACE OLD PC UITH NEU 
;; RESTORE PSU 

RESTORE OLD TRAP VECTOR 



THE F0LL0UIN6 REPRESENTS THE EQUIVALENT OF "BIC §340, PS" 



8 



000034 



6lr 

MOV 

MOV 

TRAP 

MOV 

MOV 

RTI 

MOV 

MOV 

BIC 

MOV 

MOV 

RTI 

CLR 
MOV 
MOV 



-(SP) 
34. -(SP) 
t6^,34 

2(SP).6(SP) 
I70S, \SP) 

(SP)+,34 
(SP)+.$TNP6 
•3H0,iTNP6 
ITMP6,-(SP) 
•71$, -(SP) 



-(SP) 
34. -(SP) 
•7^$. 34 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
;;PUSH OLD PSU AN PCON STACK 

:: REPLACE OLD PC WITH NEU 
■ ■ RESTORE PSU 

" RESTORE OLD TRAP VECTOR 



PUT NEW PS ON STACK 
;PUT NEW PC ON STACK 
POP NEW PC AND PS 



1 1 SAVE CURRENT TRAP VECTOR 
••SETUP NEU TRAP VECTOT 



f1-.IMC€C - il - DZCOe-B 
DZCOe Pll T13 



104400 




154fe 
1547 





005754 
00S7M 



005764 
0DS7bh 
005774 
00577b 



OObOOO 
OObOOS 



12637 
012637 
052737 
C13746 

012715 
012713 

lS^3^6 

016246 
012746 
000002 

005013 
012712 
005037 
005737 
001441 
023727 
100435 
104022 
000433 
105713 
100401 
1(34023 

mil 

005037 
022626 
005737 
100412 
012737 
104400 
012746 
104402 
001 

(Soo 

000405 
023727 
100001 
104024 



000004 
004737 
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S£Q 



000002 00000b 
005574 

000034 
0C1214 

00020U 001214 

001214 

005624 



177660 
045442 
000101 



000002 
005656 



000232 
000232 
001252 

001252 100005 



72S; 



73$: 



74 J : 



IS: 



751: 



TIMT13 



IS: 



000232 
000232 

001252 

100005 001252 

031741 

000005 



001252 100005 SET5: 



TRAP 
flOV 

m 

MOV 
flOV 
BIS 
flOV 
NOV 
RTI 

MOV 
flOV 
MOV 
TSTB 
BPL 
:THE 
MOV 
MOV 
RTI 

CLR 
MOV 
CLR 
TST 
BEQ 
CMP 
BMI 
ERROR 
BR 

TSTB 
BMI 
F.RR0R 
CLR 
MOV 
CLR 
CMP 
TST 
BMI 
MOV 
TYPE, 
MOV 
TYPOS 
.BYTE 
.BYTE 
BR 
CMP 
BPL 
ERROR 



2(SP),b(SP) 
•73S,(SP^ 

(SP)+,34 
CSPK.STHPfa 
•200,iTHP6 
|TMP6,-(SPJ 
.1745, -(SP) 



;;PUSH OLD PSU AM PCON STACK 

"rESTOR^'PIP"'^^ OLD PC WITH NEU 
;; RESTORE OLD TRAP VECTOR 



;;PUT NEU PS ON STACK 
• -PUT NEU PC ON STACK 
POP NEU PC AND PS 



•-80.. 9CDC 
tBUFB^G,3CDA 
1101, SCD5 
9CD5 
IS 

FOLLOUING REPRESENTS 
2(ADINT).-(SP) 
•75$, -(S^) 



COLUMN COUNT 
BUS ADDRESS 



;SET UP 
SET UP 

:SET INTERRUPT ENABLE AND READ 
UfilT FOR CONTROLLER READY 



TO READ BO COLUMNS 



3CDS 

•232. BADINT 
a«23£ 
INTFLG 
TST14 

INTFLG, 1100005 

TST 14 
+22 

TST14 

9CDS 

1$ 
+23 

acDr 

•23d. JMOINT 
SI232 

(SP)+. (SP)+ 
INTFL6 



THE 
;PUT 
PUT 



EOUIVAIFNT OF "MOV 
NEU PS 1.N STACK 
NEU PC tN STACK 



2(ADINT),PS*' 



POP NEU PC AND PS 



DISABLE INT'.RRUPTS 

CHftNGE INTEWUPT RETURN ADDRESS 

TO CAUSE A HALT IF AN INTERRUPT OCCURS 

TEST FOR A PREVIOUS INTERRUPT 

BRANCH IF NONE 

CHECK PREVIOUS LEVEL 

BRANCH IF LOUER 

; INTERRUPT ALREADY OCCURRED AT LVL 5 OR HIGHER 

;n^£. SURE CONTROLLER READY IS SET 
BRANCH IF SET 

; CONTROLLER READY UASN'T SET 
; DISABLE FURTHER INTERRUPTS 
CHftNK^INTERRUPT RETURN ADDRESS 
:T0 CAUSE A HALT IF AN INTERRUPT OCCURS 
RESTORE STACK POINTER 
CHECK FOR PREVIOUS FLAG 
WANCH IF FLAG SET 



SETS .^^^ 
•100005, INTFLG ;SET FLAG AND '.EVEL 
ffSG4 ; PRINT MESSAGE ""f" 

»5,-(SP) 



THE INTERRUPT LEVEL UAS" 



1 
0 

TST14 
INTFLG, 
TST14 
+24 



•100005 ; CHECK PREVIOUS LEVEL 



025744 



tnnv«. ^t-. ; INTERRUPT ALREADY OCCURRED AT A LOUER LEVEL 

»TEST 14 TEST FOR AN INTERRUPT ON LEVEL 4 

tST14: SCOPE j^j^ : INITIALIZE 



DZCOa.PH TIH 



mCYll e7(b5H) 1-JUL 
TEST FOR m INTERRUPT 



■77 06: 3S 
on LEVEL M 



PfttE 32 



N08 








012712 006370 



00003M 




000034 



^127ib 

m 






OOSOHb 
0137% 
D12737 
:04H00 
'Jlbbbb 
ill27lb 



0l2b37 
052737 
0137% 
0127% 



000002 000006 64f: 
OObOMH 



000034 

^1214 
D340 001214 

b074 



bSS: 



b£>S: 



000034 



000002 00000b b7S: 
00bl2b 

000034 beS: 
000002 



000034 

00bl54 000034 
0^2 00000b b9S: 



170 



000034 
001214 

000340 001214 

001214 

00b220 



000034 

00b23b 000034 



70S: 



71$: 



000002 OOOQOb 72S: 
00b252 



000034 
001214 

000140 001214 

001214 

006302 



73$: 



NOV tTINT14.aRDlNT 
THE FOLLOWING REWESEMT 



6lr 

NOV 

NOV 

TRAP 

NOV 

NOV 

RTI 

NOV 

NOV 

BIS 

NOV 

NOV 

RTI 



-(SP) 
3M.-(SP) 
•b4s,3M 

2(SP),b(SF; 
165$. (5P) 

(SP)+,34 

(SP)+.$THPb 

•340.4TNPb 

ITHP6,-(SP) 

•b6S,-CSP) 



.SETUP RETURfl «00R£SS 

§ THE EQUIVALENT OF "BIS i340,PS' 



SAVE CURRENT TRflP VECTOR 
SETUP rCU TRRP VECTOT 
PUSH OLD PSH RM PCON STACK 

:; REPLACE OLD PC iJITH NEU 
: RESTORE PSU 

;;R£SrORE OLD TRAP VECTOR 



PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 



THE FOLLOWING REPRESENTS THE EQUIVALENT OF "NOV PS,2(ADIHT)' 



6lr 

NOV 
NOV 
TRAP 
NOV 
NOV 
RTI 
NOV 
NOV 



-(SP) 
34. -(SP) 
•6^S,34 

2(SP;,6(SP) 
•68S,lSP) 



(SP)+,34 
(SP)+!2<ADINT; 
.THE FOLLOWING REPRESENTS 
6lR -(SP) ; 
34.-(SP) ; 
I6^S,34 ; 



NOV 
NOV 
TRAP 
NOV 
MOV 
RTI 
MOV 
MOV 
BIC 
MOV 
MOV 
RTI 

CLR 

MOV 

MOV 

TRAP 

MOV 

MOV 

RTI 

MOV 

MOV 

BIS 

MOV 

NOV 

RTI 



2(SP).b(SP) 
170$, tSP) 

(SP)+,34 
(SP)+!$TMPb 
•340,4tMP6> 
$TNP6,-(SP) 
•71$, -(SP) 

-(SP) 
34. -(SP) 
•7$$, 34 

2(SP),b(SP) 
•73$, (SP) 

(SP)+.34 
(SP)+.$TMPb 
•140,iTNPb 
$TNP6,-(SP) 
•74$, -(SP) 



SAVE CURRENT TRAP VECTOR 
SETUP NEW TRAP VECTOT 
I PUSH OLD PSU AN PCON STACK 

:: REPLACE OLD PC WITH HEU 
. R£5T0Rt PSU 

RESTORE OLD TRAP VECTOR 

THE EQUIVALENT OF "BIC «340,PS" 

•SAVE CURRENT TRAP VECTOR 
SETUP NEW TRAP VECTOT 
•PUSH OLD PSU AN PCON STACK 

REPLACE OLD PC WITH NEW 
; RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 



:PUT NEW PS ON STACK 
•PUT NEU PC ON STACK 
: POP NEU PC AND PS 



; SAVE CURRENT TRAP VECTOR 

SETUP NEW TRAP VECTOT 
••PUSH OLD PSU AN PCON STACK 

" : ;REPLACE OLD PC WITH NEW 

RESTORE PSW 

;; RESTORE OLD TRAP VECTOR 

;PUT NEW PS ON STACK 
PUT NEW PC ON STACK 
POP NEW PC AND PS 



^ ^ 88^ 



jZCOB.Pll 



Lb23 

IbZb 

Ib28 

i&§0 
1&31 
1&32 
lb33 

I 
1 

lb37 
1&38 
lb3S 
IbHO 
lb41 
1&42 
lbM3 
lb44 
lb45 
lb% 
lb47 
lb48 
ir,48 
IbSO 
IbSl 
lb52 

ibsa 

lb54 
IbSS 
IbSb 
lb57 

ibsa 

lb59 
IbbO 
Ibbl 
lbb2 
lbb3 
IbbM 
lbb5 
Ibbb 
lbb7 
IbbS 
IfcbS 
lb70 
lb71 
lb7a 
lb73 
IbTM 



11 



DZCOe-B 



f1«CYll 27(b54) l-JUL-77 08:39 PAGE 33 
TEST FOR m INTERRUPT ON LEVEL M 



5£i 



00b30b 
QQb3l2 

^320 

0Db322 



00b3 
00b33b 



012714 
012715 

ltX337b 

0ib2% 
0127% 
000002 

OOSOlj 
012712 



177bb0 
045442 
000101 



000002 
006334 



000232 



o8b^4 
00632 
008364 



006376 

80S 

006410 
006412 
00641b 
006420 
006426 
006430 
006436 
006440 



006442 
0Q6444 
006450 

006454 
006456 

006470 
006472 
006500 
006504 
006506 
006512 
00651b 
006524 
00b530 
006534 



m3 

100427 
104022 
000425 
105713 
100401 
104023 
00S0I3 
?71 



022626 
005737 
100404 
012737 
000405 
023727 
100001 
104024 



000004 
004737 
012712 

0050% 
0137% 
012737 
104400 
016666 
01271b 
000002 
012637 
012637 
052737 
01374b 
01274b 
000002 



000232 
000232 

001252 

100004 

001252 



025744 
007032 



000034 
00b472 

000002 
006506 

000034 
001214 
000340 
001214 
006536 



'4$: 



751: 



NOV 

NOV 

NOV 

TSTB 

BPL 

flOV 
NOV 
RTI 



t-80.. 5CX 
•BUFB^G.dCOA 

1101, acos 
acos 
It 

FOLLOWING REPRESENTS THE 



SET UP COLUMN COUWT TO RERD 80 COLUHNS 
SET UP 8US ROORESS 
SET INTERRUPT ENRBLE RhO RERO 
iSftlT FOR CONTROLLER RERDY 



2(flDINT).-(SP) 
•751, -(S^) 



001252 100004 



001252 
100004 



CLR 
MOV 
CLR 
TST 

BEQ 

CMP 

BMI 

ERROR 

BR 

TINT14: TSTB 
BMI 
ERROR 

IS: CLR 
MOV 
CLR 
CMP 
TST 
BMI 
MOV 
BR 

SET4: CMP 
BPL 
ERROR 



acos 

•232. 
3^23^ 

INTFLG 
TST15 
INTFLG, 
TST IS 
+22 
TST15 

acos 

IS 

♦23 

acos 

•232. 

a^23^ 

(SP)+. 
INTFL& 



aROINT 



•100004 



aROINT 

(SP) + 



EOUIVRLENT OF "MOV 2(R0INT),PS- 
;PUT NEH PS ON STRCK 
PUT fCU PC ON STACK 
; POP rCU PC RND PS 

OISRBLE INTERRUPTS 
CHRNGE INTERRUPT RETURN ROORESS 
TO CRUSE fl HRLT IF RN INTERRUPT OCCURS 
TEST FOR R PREVIOUS INTERRUPT 
BRRNCH IF NONE 
CHECK PREVIOUS LEVEL 
BRRNCH IF LOUER 

; INTERRUPT RLREROY OCCURRED RT LVL 4 OR HIGHER 

;MRKE SURE CONTROLLER REROY IS SET 
;BRRNCH IF SET ^ , 

; CONTROLLER READY HASN'T SET 
; DISABLE FURTHER INTERRUPTS 
CHANGE INTERRUPT RETURN ADDRESS 
TO CRUSE A HALT IF AN INTERRUPT OCCURS 
RESTORE STACK POINTER 
CHECK FOR PREVIOUS FLAG 
[BRANCH IF FLAG SET 
;^T FLAG AND LEVEL 



SET4 

•100004, INTFLG 
TST15 

INTFLG, 1100004 ; CHECK PREVIOUS LEVEL 
TST15 

+24 ; INTERRUPT ALREADY 



tnn«n , ■ r OCCURRED AT A LOUER LEVEL 

»TEST 15 TEST FOR AN INTERRUPT ON LEVEL 3 

*^"^= fig™ PC, IWT ilWTiaiZE 

NOV iTtNTlS.aAOINT jSETUP RETURN ADDRESS 
THE FOaOWING AEPRESENTS THE EQUIVALENT OF "BIS •340, PS" 



000034 
00000b 

001214 



b4S: 



bSS: 



6lr 

MOV 

MOV 

TRAP 

MOV 

MOV 

RTI 

MOV 

MOV 

BIS 

MOV 

MOV 

RTI 



-(SP) 
34, -(SP) 
•b4s,34 

2(SP),b(SP) 
•65S,(SP) 

(SP)+,34 

(SP)+.STMPb 

•340,iTMP6 

STMP6,-(SP) 

•bbS,-(SP) 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTO^ 
PUSH OLD PSU AN PCON STACK 



:; REPLACE OLD PC UITH NEW 
RESTORE PSW 

;; RESTORE OLD TRAP VECTOR 



PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 



M^IfCeC - 11 - OZCDB-B nflCYU 27(654) WJ 
Tl5 TEST FOfi «i INTERRUI 



DZCOe.PU 

00b536 

1^76 
lfa77 
1678 

•679 006|HH 
IhSQ 008552 
1661 0065&4 
1682 006562 

1683 

»70 
»7M 




169S 006C>3b 





16% 
169S 

1700 _ 

1701 006662 

m mi 

170H 006676 

1705 006700 

1706 006706 

1707 006712 
"'j7|4 

1711 006732 

1712 006736 

1713 ^7V2 
171M 006744 
1715 006744 

1718 00fr760 

171S 006/62 
1720 

1721 006764 

1722 006770 

1723 006774 

1724 006776 

1725 006776 

1726 007000 

1727 QQ7004 

1728 007010 



o(sg% 

013746 
0127g 
104400 
016666 
012716 



0050% 
Q13746 
012737 
104400 

01^16 



0U_ 
012637 

S 42737 
13746 
012746 
000002 



0050% 
0137% 
012737 
104400 
016666 
012716 
000002 
012637 
012637 
052737 
0137% 
012746 
000002 

012714 
012715 
012713 
105713 
100376 

01624e. 
012746 
000002 

005013 
012712 
005037 
005737 



661 



000034 

006554 000034 

000002 000006 67S 
006570 



000034 
000002 



34 
16 



32 

000034 
001214 
000340 
001214 
006662 



000034 
006700 

000002 
006714 

000034 
001214 
000100 
001214 
006744 



177660 
045442 
000101 



000002 
006776 



000232 
000232 
001252 



6BS 

000034 
000006 69S 



001214 



70S 



71J 



000034 
000006 72S 



001214 



735 



74S 



IS: 



75S 



cog 



-77 



g8:3S 
ON LEVEL 3 



PM£ 34 



S£Q 010b 



THE FOLLOUING REPRESENTS THE EQUIVALENT OF -MOV PS,2(fi0INT)~ 



tLR 
NOV 
MOV 
TRflP 
NOV 
NOV 
RTI 
NOV 
MOV 



-(SP) 
34. -(SP) 
•6>$,34 

2vSP),6(SP) 
I68S, tSP) 

(SP)+,34 
(SP)+ 2(ftDINT) 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
PUSH OLD PSU tm PCON STACK 

:; REPLACE OLD PC WITH NEU 
; RESTORE PSU 

RESTORE OLD TRAP VECTOR 



:THE F0LL0UIN& REPRESENTS THE EQUIVALENT OF "BIC I340,PS" 



tLR 
MOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 
BIC 
NOV 
MOV 
RTI 

CLR 

MOV 

MOV 

TRAP 

MOV 

MOV 

RTI 

MOV 

MOV 

BIS 

MOV 

MOV 

RTI 

MOV 
MOV 
MOV 
TSTB 
BPL 



-(SP) 
34.-(SP) 
•6^,34 

2(SP),b(SP) 
•70$JSP) 

(SP)*,34 

(SP)+.STMP6 

I340,STMP6 

$TMPt,-(SP) 

I71S,-(SP) 



-(SP) 
34. -(SP) 
•7§S,34 

2(SP),6(SP) 
972%, ISP) 

(SP)'»-,34 

(SP)*!STMP6 

•100,ItMP6 

STMP6,-(SP) 

•74S,'(SP) 

i-80.. aCDC 
IBUFBEG.SCDA 

•101, acos 

9C0S 
IS 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
PUSH OLD PSU AN PCON STACK 

:: REPLACE OLD PC UITH NEU 
; RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 

;PUT NEU PS ON STACK 
FJT NEU PC ON STACK 
POP NEU PC AND PS 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
PUSH OLD PSU AN PCON STACK 

REPLACE OLD PC UITH NEU 
RESTORE PSU 

;> RESTORE OLD TRAP VECTOR 

:;PUT NEU PS ON STACK 

PUT NEU PC ON STACK 
; ; POP NEU PC AND PS 

:SET UP COLUMN COUNT TO READ 80 COLUMNS 
SET UP BUS ADDRESS 
SET INTERRUPT ENABLE AND READ 
UAIT FOR CONTROLLER READY 



.THE FOLLOUING REPRESENTS THE EQUIVALENT OF "MOV 2(ADINT) ,PS" 

AOV 2(ADINT)^-(SP) PUT NEU PS ON STACK 

MOV 175$, -(Sf-) PUT NEU PC ON STACK 

RTI 1 1 POP NEU PC AND PS 

CLR aCDS ; DISABLE INTERRUPTS 

MOV 1232. aADINT CHANGE INTERRUPT RETURN ADDRESS _ 

CLR 3123^ TO CAUSE A HALT IF AN INTERRUPT OCCURS 

TST INTFLG TEST FOR A PREVIOUS INTERRUPT 



COS 



CZCOB.PK 



11 - 



I72<i 
1730 

1733 
173M 
1735 
1 73b 
1737 
1738 
173'3 
1740 
1741 

.74? 
1743 
1744 
1745 
i74t, 
1747 
174B 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
175b 
1757 

1711 
17b0 
I7bl 
1752 
1753 
1754 
1765 
17bb 
17b7 
17bS 
I7bq 
1770 
1771 
17,'2 
1773 
1774 
1775 
177b 
1777 
1778 
1779 
1780 
1781 
1782 



007014 
00701b 

007030 
007032 
007034 
007038 
007040 
007042 
0070% 
0070SJ 
007054 
0070b0 
007052 
007070 
007074 
007100 
007102 
007103 
007104 
00710b 
007114 
0071 lb 



007120 
007122 
Q0712b 

007132 
007134 
007140 
00714b 
007150 

0071b2 
007 IbM 
007170 
007174 
007202 
00720b 
007212 
007214 

007214 
00721b 
007222 
007230 
007232 
007240 
007244 
00724b 



DZCOB-e 

TI5 

001441 
023727 
100435 
104022 
000433 
105713 
100401 
104023 
005013 
012712 
M5037 
022b2b 
005737 
100412 
012737 
104400 
01274b 
104402 
001 
000 
000405 
023727 
100001 
104024 



000004 
004737 
012712 

00504b 
0137% 
(312737 
104400 
Olbbbb 



012b3/ 
012b37 
0S2737 
01374b 
01274b 
000002 



00504b 
01374b 
012737 
104400 
Olbbbb 
01271b 
000002 
012b37 



flACYll 27(b54) 1-JUL -77 08:3S PfiGE 35 
TEST F0« ON INTERRUPT ON LEVEL 3 



SCO 0107 



001252 1000C3 



BEQ 
CMP 

Bni 



ERROR 422 



TSTlb 
INTFLG, 

TS~16 



TINT15: 



BR 

TSTB 
BUI 



TSTlb 

acos 

IS 



; BRANCH IF NONE 
1100003 ; CHECK PREVIOUS LEVEL 
; BRANCH IF LOUER 

; INTERRUPT RLREftOY OCCURRED ftT LVL 3 OR HIGHER 



000232 
000232 

001252 

100003 
031741 
000003 



IS: 



001252 



;nAKE SURE CONTROLLER REROY IS SET 
BRANCH IF SET 

ERROR +23 ; CONTROLLER REROY WASN'T SET 

acos ; DISABLE FURTHER INTERRUPTS 

•232^ aADINT CHANGE INTERRUPT RETURN ADDRESS 
at23^ TO CAUSE A HALT IF Aii INTERRUPT OCCURS 

(SP)+^ (SP)+ RESTORE STACK POINTER 
INTFl6 CHECK FOR PREVIOUS FLAG 

SET3 IbRANCH if FLAG SET 

•100003, INTFLG ;§ET FLAG AND LEVEL 

nSG4 : PRINT HESSAGE "THE INTERRUPT LEVEL WAS* 

•3,-(SP) 



001252 100003 SETS 



025744 
007510 



000034 
007150 

000002 
007154 

000034 
001214 
000340 
001214 
007214 



00C034 
007232 

000002 
00724b 

000034 



CLR 
NOV 
CLR 
CMP 
TST 
BNI 
NOV 
TYPE, 
NOV 
TYPOS 
.BYTE 
.BYTE 
BR 
CNP 
BPL 



1 
0 

TSTlb 

INTFLG, 1100003 jCHECK PREVIOUS LEVEL 
TSTlb 

ERROR +24 : INTERRUPT ALREADY OCCURRED AT A LOUER LEVEL 

l«««ff ««««««««««««««««««««««««««««««««««»«»««««««»«««#«««««« 

#TEST lb TEST FOR AN INTERRUPT ON LEVEL 2 



tSTlb: 



SCOPE 
J3R 



PC. 



INIT 



.v.. {INITIALIZE 
MOV IT tNT lb. aADINT : SETUP RETURN ADDRESS 
:THE FOLLOWING ftEPRESENT§ THE EQUIVALENT OF "BIS 1340, PS" 



000034 
00000b 

001214 



000034 
00000b 



b4S: 



b5S: 



bbS: 



b7S: 



bBS: 



6lr 

NOV 

NOV 

TRAP 

NOV 

NOV 

RTI 

MOV 

MOV 

BIS 

MOV 

MOV 

RTI 



-(SP) 
34. -(SP) 
•b4s,34 

2(SP),b(SP) 
•b5S,(5P) 

(SP)+,34 
(SP)+!$TMPb 
•340,iTMPb 
$TMP4,-(SP) 
•bbS, -(SP) 



;SAVE CURRENT TRAP VECTOR 
SETUP NEW TRAP VECTOT 
••PUSH OLD PSW AN PCON STACK 

REPLACE OLD PC WITH NEW 
;; RESTORE PSW 

RESTORE OLD TRAP VECTOR 



PUT NEW PS ON STACK 
PUT NEW PC ON STACK 
POP NEW PC AND PS 



THE FOLLOWING REPRESENTS THE EQUIVALENT OF "NOV PS,2(ADINT)' 



6lr 

MOV 

MOV 

TRAP 

NOV 

MOV 

RTI 

MOV 



-(SP) 
34. -(SP) 
•b7S,34 

2(SP),b(SP) 
ttb8S,(SP} 

(SP)+,34 



SAVE CURRENT TRAP VECTOR 
SETUP NEW TRAP VECTOT 
;:PUSH OLD PSW AN PCON STACK 

:; REPLACE OLD PC WITH NEW 
;; RESTORE PSW 

RESTORE OLD "RAP VECTOR 



fl^lNDEC - 11 - OZCDB-B ri«CYll 27(b5H) l-JUL-77 08: 3S P«GE 36 
OZCOe.Pll Tib TEST FOR AM INTERRUPT OM LEVEL 2 



EOS 



SEQ 



1783 
179M 

1797 

17* 

17S4 
17% 
17% 

17*'^ 
1801 
1804 

\^ 

1807 
1608 
1B0<3 
1810 
1811 
1812 
1813 
18m 
1815 
1816 
1817 
1818 
181? 
1820 
1821 
1822 
1823 
1B2H 
1825 
1826 
1827 
1828 
182S 
1830 
1831 
1832 
1833 
183M 
1B3S 
1836 



007252 012662 000002 



)7l 
00726M 

iim 

007302 

887SS 
007314 
007320 
007326 
007332 
007336 
0073H0 

m 

0073% 

54 



X7364 

m 

007376 
007402 
007410 
M7414 
007420 
007422 
007422 
007426 
0Q7432 
007436 
007440 

007442 
M7446 
Q07452 
007454 
007454 
007456 
007462 
X7466 
007472 
007474 
007502 
007504 
007506 
007510 
007512 
007514 
007516 
007520 



C12737 
104400 
016666 
012716 



)1 

012637 
042737 
0137% 
012746 
000002 

012737 
012716 



01262 
012637 
052737 
013746 
012746 
000002 

012714 
012715 
012713 
105713 
100376 

016246 
012746 
000002 

005013 
012712 
005037 
005737 
001441 
023727 
100435 
104022 
000433 
105713 
100401 
104023 
005013 
012712 



000034 
007274 

000002 
007310 

000034 
001214 
000340 
001214 
007340 



000034 
007356 

000002 
007372 

000034 
001214 
000040 
001214 
007422 



177660 
045442 
000101 



000002 
007454 



000034 
000006 69S: 



001214 



70S: 



71$: 



000034 
000006 72S: 



001214 



731: 

741: 
IS: 

75S: 



000232 
000232 
001252 

001252 100002 



000232 



TINTlb: 
IS: 



nov 

:THE 

6lr 

NOV 

nov 

TRflP 
MO'' 
MOV 
RTI 

nov 

MOV 
BIC 

nov 
nov 

RTI 

CLR 

nov 
nov 

TRAP 

nov 

MOV 
RTI 

nov 
nov 

BIS 

nov 
nov 

RTI 

nov 
nov 

MOV 
TSTB 
BPL 



(SP)*,2(R0INT) 
FOLLOUind REPRESENTS 

-(SP) ; 

34.-(SP) ; 

t64s,34 : 

2(SP),6(SP) I 
•70S,(SP) 



(SP)+,34 

(SP)+.$TMPb 

•34Q,4TnPb 

STnp6,-(SP) 

•71S,-(SP) 

-(SP) 

34.-(SP) 

•7S$,34 

2(SP).6(SP) 
•73$, (SP) 

(SP)+,34 

(SP)*.$TMPb 

•040.iTnPb 

$Tnp6,-(SP) 

•74$, -(SP) 



•-80.. aCDC 
•BUFB^G,aCDR 

•lOi, sens 
acos 
1$ 



THE EQUIVALENT OF "BIC •340, PS" 

SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
PUSH OLD PSU AN PCON STACK 

:; REPLACE OLD PC WITH NEU 
RESTORE PSU 

;;RE«;iORE OLD TRAP VECTOR 



PUT NEU PS OH STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
PUSH OLD PSU AN PCUN STACK 



REPLACE OLD PC UITH NEU 
; {RESTORE PSU 

RESTORE OLC TRAP VECTOR 



PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 



:SET UP COLUMN COUNT TO READ 80 COLUMNS 
SET UP BUS ADDRESS 
SET INTERRUPT ENABLE AND READ 
UAIT FOR CONTROLLER READY 



THE FOLLOUING REPRESENTS THE EQUIVALENT OF "NOV 2(ADINT),PS" 



Aov 

MOV 
RTI 

CLR 

nov 

CLR 
TST 
BEQ 

cnp 
Bni 

ERROR 
BR 

TSTB 

Bni 

ERROR 

CLR 

MOV 



2(ADINT).-(SP) 
•75$, -(SP) 



acos 

•232. 

a«23a 

INTFLG 
TST17 
INTFLG, 
TST17 
+22 
TST17 

acos 

IS 

+23 

acos 

•232, 



aAOINT 
•100002 



:PUT NEU PS ON ?TACK 
PUT NEU PC ON STACK 
I POP NEU PC AND PS 

DISABLE INTERRUPTS 

CHANGE INTERRUPT RETURN ADDRESS 

TO CAUSE A HALT IF AN INTERRUPT OCCURS 

TEST FOR A PREVIOUS INTERRUPT 

BRANCH IF NONE 

CHECK PREVIOUS LEVEL 

BRANCH IF LOUER „ _ ^„ 

; INTERRUPT ALREADY OCCURRED AT LVL 2 OR HIGHER 



:HAKE SURE CONTROLLER READY IS SET 
BRANCH IF SET 

: CONTROLLER READY UASN'T SET 
: DISABLE FURTHER INTERRUPTS 
aADINT CHANGE INTERRUPT RETURN ADDRESS 



nPINDEC - U - DZCDB-B 

ozcoe.Pii Tib 




□07576 
007 - 



1837 
1838 
1839 
1840 
18M1 

18M2 

18M3 007S52 
18HM 
18H5 

\t» _ 

1848 007564 

1849 QQ7572 

1850 007574 
1851 
1852 
1853 



)7600 

1856 ra7604 
1857 

1858 007610 

185<3 007612 

1860 007616 

1861 007624 

1862 007626 

1863 007634 

1864 007640 

1865 007642 

1866 007646 

1867 007652 

1868 007660 

m mi 

1871 007672 
1872 

1873 007672 

1874 007674 

1875 007700 

1876 007706 

1877 007710 

1878 007716 

1879 007722 

1880 007724 
)881 007730 

W7734 
007736 
007742 

_^ 007750 

1887 007752 

1888 Q0776Q 

1889 007764 

1890 007766 



005037 
022626 
005737 
ll50412 
012737 
104400 
0127% 
104402 
001 
000 
000405 
023727 
100001 
104024 



000004 
004737 
012712 

005046 
013746 
012737 
104400 
016666 
012716 
000002 
012637 
012637 
052737 
013746 
012746 
000002 



005046 
013746 
012737 
104400 
016666 
012716 
000002 
012637 
012662 

005046 
013746 
012737 
104400 
016666 
012716 
000002 
012637 



HACYU 27(f.54) l-Jl'».-77 08:39 PAGE 37 
TEST FOR AN INTERRUPT ON LEVEL 2 



SCO 0109 



000232 
001252 

1000J2 001252 

031741 

000002 



001252 100002 SET2 



CLR 

criP 

TST 
BMI 
NOV 
TYPE, 
MOV 
TYPOS 
.BYTE 
• BYTE 
BR 
CMP 
BPL 



31232 :TC CfiUSE fl HALT IF fiN INTERRUPT OCCURS 

(SP)+» (SP)+ ; RESTORE STACK POINTER 

INTFl6 -.CHECK FOR PREVIOUS FLAG 

SET2 -BRANCH IF FLAG SET 

•100002, INTFLG ;^T FLAG AND LEVEL 

HSG4 ; PRINT MESSAGE "THE INTERRUPT LEVEL WAS' 
•2,-(SP) 



1 
0 

TST17 

INTFLG, 1100002 ; CHECK PREVIOUS LEVEL 
ERROR +24^^^^ : INTERRUPT ALREADY OCCURRED AT fl LOUER LEVEL 

»TEST 17 TEST FOR AN INTERRUPT ON LEVEL 1 



025744 
010150 



000034 

007626 000034 

000002 000006 
007642 

000034 
001214 

000340 001214 

0OJ214 

007672 



000034 

007710 000034 

000002 000006 
007724 

000034 
000002 



000034 

007752 000034 

0JOO02 000006 
007766 

000034 



tST17: 



64S: 



65S: 



66S: 



67S: 



68S: 



69S: 



70 J: 



SCOPE 

JSR PC. INIT ; INITIALIZE 
MOV iTtNT17.aADINT :SETUP RETURN AODRJ 
THE FOLLOWING REPRESENTS THE EQUIVALENT OF 



tLR 
MOV 
hOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
HOV 
BIS 
MOV 
MOV 
RTI 



-(SP) 
34. -(SP) 
i64s,34 

2(SP),6{SP) 
t65S,(SP) 

(SP)+,34 

(SP)*.ITMP6 

i340,4TMP6 

JTMP6,-(SP) 

•66S,-(SP) 



BIS i340,PS" 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
IjPUSH OLD PSU AN PCON STACK 

" ::REPLACE OLD PC WITH NEU 

;;RESTORt PSU 

RESTORE OLD TRAP VECTOR 



;PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 



THE FOLLOUING REPRESENTS THE EQUIVALENT OF "MOV PS,2(ADINT)' 



tLR 
MOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 



(SP) 
34. -(SP) 
•6^5,34 

2(SP),b(SP) 
•68$, (SP) 

(SP)+,34 
(SP)+ 2(ADINT) 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
••PUSH OLD PSU AN PCON STACK 

:; REPLACE OLD PC UITH NEU 
:: RESTORE PSU 

; {RESTORE OLD TRAP VECTOR 



THE F0LL0UIN6 REPRESENTS THE EQUIVALENT OF "BIC »340,PS" 



tLR 
MOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
HOV 



-(SP) 
34.-(SP) 
•695,34 

2(SP),6(SP) 
•70J,(SP) 

(SP)+,34 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
I ! PUSH OLD PSU AN PCON STACK 

REPLACE OLD PC UITH NEU 
:; RESTORE PSU 

RESTORE OLD TRAP VECTOR 



n^INOEC - u 
DZCOB.Pll 



18S3 

ii^ 

18% 
18*37 
18% 
18SS 
1900 
1%1 

i?a2 

1903 
190M 
1905 
1906 

1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
191b 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
192b 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
193b 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 



8 



10004 

\m 

OlOOlb 

im 

Q1002H 
010032 
010034 
010042 
010048 
10050 
10054 
lOObO 
OlOObb 
010072 
01007b 
010100 
010100 
010104 
010110 
010114 
01011b 

010120 
010124 
010130 
010132 
010132 
010134 
010140 
010144 
010i4b 
010150 
010152 
010154 
01015b 
OlOlbO 
0l01b4 
010170 
010172 
01017b 
010200 
OlOPOb 
010212 
01021b 
010220 
010221 
010222 
010224 
010232 
010234 



DZCOB-B 
TI7 

0.1 £§37 
042737 
0137% 

OOS04b 
01374b 
012737 
104400 
Olbbbb 
01271b 
000002 
Ol2b37 
Ol2b37 
052737 
01374b 
01274b 
000002 

012714 
012715 
012713 
105713 
10037b 

01b24b 
01274b 
000002 

005013 
012712 
005037 
104041 
000433 
105713 
100401 
104023 
005013 
012712 
005037 
02''b2b 
005737 
100412 
012737 
104400 
01274b 
104402 
001 
000 
000405 
023727 
100001 
104024 



HRCYll 2"(bS4) l-JUL-77 08:39 PAGE 38 
TEST FOR 9h INTERRUPT OH LEVEL 1 



S£0 QUO 



001214 
000340 
001214 
OlOOlb 



000034 
010034 

000002 
010050 

000034 
001214 
000000 
001214 
010100 



177bb0 
045442 
000101 



000002 
010132 



001214 



000034 
00000b 

001214 



71$: 



72S: 



73$: 



74$: 



1$: 



75$: 



flOV 
BIC 
flOV 
MOV 
RTI 

CLR 

MOV 

MOV 

TRAP 

MOV 

MOV 

RTI 

MOV 

MOV 

BIS 

MOV 

MOV 

RTI 

MOV 

MOV 

MOV 

TSTB 

BPL 

jTHE 

MOV 

MOV 

RTI 



(SP)+^$THPb 
•340,jTMPb 
$TMPb,-(SP) 
•71$, -(SP) 



-(SP) 
34. -(SP) 
172$, 34 

2(SP),b(5P) 
•73$,(SP) 

(SP)+,34 
(SP)+.$TMPb 
•OOO.iTMPb 
$TMP6,-(SP) 
•74$, -(SP) 



;;PUT NEW PS ON STfiCK 
PUT NEU PC ON STfiCK 
POP NEU PC ftNO PS 



SAVE CURRENT TRfiP VECTOR 
SETUP NEU TRAP VECTOT 
PUSH OLD PSU AN PCON STACK 



REPLACE OLD PC UITH NEU 
■ ■ RESTORE PSU 

;; RESTORE OLD TRfiP VECTOR 



PUT NEU PS ON STACK 
PUT NEU PC ON STfiCK 
POP NEU PC fihO PS 



;SET UP COLUMN COUNT TO REfiO 80 COLUMNS 
SET UP BUS ADDRESS 
SET INTERRUPT ENABLE AND READ 
UflIT FOR CONTROLLER READY 



•-B0., aCDC 
•BUFBEG,SC0A 
•101, 9C0S 
SCDS 

FOLLOUING REPRESENTS THE EQUIVALENT OF "MOV 2(A0INT),PS' 
2(ADINT).-(SP) ;;PUT NEU PS ON STACK 
•75$, -(S^) PUT NEU PC ON STACK 

POP NEU PC AND PS 



CLR 

000232 MOV 
000232 CLR 

ERROR 
BR 

TINT17: TSTB 
BMI 
ERROR 
1$: CLR 
000232 MOV 
000232 CLR 

CMP 

001252 TST 

BMI 

100001 001252 MOV 
031741 TYPE, 
000001 MOV 

TYPOS 
.BYTE 
.BYTE 
BR 

001252 100001 SETl: CMP 

BPL 
ERROR 



9C0S 

•232. 3ADINT 

as23^ 

+41 

TST20 

aCDS 

1$ 
+23 

acDS 

•232. BADINT 
a«23^ 

(SP)+. (SP)+ 

INTFLft 

SETl 

•100001, INTFLG 

MSG4 

•1,-(SP) 



; DISABLE INTERRUPTS 
CHANGE INTERRUPT RETURN ADDRESS 
TO CAUSE A HALT IF AN INTERRUPT OCCURS 

;N0 INTERRUPT UITH PROCESSOR AT LEVEL 0 

:MAKE SURE CONTROLLER READY IS SET 

BRANCH IF SET 

; CONTROLLER READY UASN'T SET 
rOISAeLE FURTHER INTERRUPTS 

CHANGE INTERRUPT RETURN ADDRESS 

TO CAUSE A HALT IF AN INTERRUPT OCCURS 

RESTORE STACK POINTER 

CHECK FOR PREVIOUS FLAG 
[branch IF FLAG SET 
:§ET FLAG AND LEVEL 
jPRINT MESSAGE "THE INTERRUPT LEVEL UfiS" 



1 
0 

TST20 
INTFLG, 
TST20 
+24 



•100001 ; CHECK PREVIOUS LEVEL 

; INTERRUPT ALREADY OCCURRED AT fi LOWER LEVEL 



OZCOB.PU 



11 



Dzcoe-B 

T17 



1948 
19M9 
1%0 



5S 



010236 
Q1Q2M0 
010244 

Si! 

01 



818^ 



§18?" 



uiuese 

1956 010264 

1957 010266 

1958 010274 
1959 
1%0 

1%1 010306 

1962 010312 

1963 010320 

1964 Q1Q324 

1965 Ol03r0 
966 010332 
967 

968 010332 

SiS^SO 

971 010346 

972 010350 
973 
974 
975 G10364 
97b 010370 

977 010374 

978 010400 

979 010404 

980 010406 
961 010406 

982 010412 

983 010416 
98H 010422 
985 01042b 
98b 010432 
987 

988 010434 

989 010440 

1990 010444 

1991 01044b 

1992 01 0446 

1993 010450 

1994 010452 

1995 010454 
19% 010456 

1997 010460 

1998 010464 



000004 
Q04737 

005046 

m 

104400 
016666 
012716 
000002 
012637 
012637 
052737 
013746 
012746 
000002 



005046 
013746 
012737 
104400 
016666 
012716 
000002 
012637 
012662 
013746 
012746 
000002 

012714 
012715 
012713 
005037 
005237 
001375 

016246 
012746 
000002 

005013 
000403 
104021 
022626 
005013 
005037 
012712 



flACYll 27(654) l-JUL-77 08:39 PfiGE 39 
TEST FOR AN INTERRUPT OH LEVEL 1 



Hog 



SEQ 0111 



»TEST 20 TEST NO INTERRUPT WITH IE SET & REST CLEARED 



025744 
010452 



000034 

010266 000034 

000002 000006 
010302 

000034 
001i:14 

000340 00 < 214 

001214 

010332 



000034 

010350 000034 

000002 000006 
010364 

000034 
000002 
000000 
010406 



177777 
045442 
000100 
001250 
001250 



000002 
010446 



tST20: 



000232 
000232 



64S: 



&5S: 



66S: 



67S: 



68S: 



69S: 



IS: 



70$: 



TINT20: 



C0NT20: 



SCOPE 

JSR PC, INIT ; INITIALIZE CSR TO ZERO 
NOV lTlNT20.aftDINT [SETUP RETURN ADDRESS 
THE FOLLOWING ftEPRESENT§ THE EQUIVALENT OF "815 1340, PS" 



6lr 

•WV 

NOV 

TRAP 

NOV 

NOV 

RTI 

MOV 

NOV 

BIS 

MOV 

MOV 

RTI 



-(SP) 
34,-(SP) 
I64S,34 

2(SP).6(SP) 
•65S,{SP) 

(SP)+,34 
(SP)+.$TMP6 
•340,iTHP6 
ITMPfe,-(SP) 
•66$, -(SP) 



SAVE CURRENT TRAP VECTOR 
SETUP NEW TRAP VECTOT 
■•PUSH OLD PSW AN PCON STACK 

" :; REPLACE OLD PC WITH NEW 

;; RESTORE PSW 

RESTORE OLD TRAP VECTOR 



;PUT NEW PS ON STACK 
PUT NEW PC ON STACK 
POP NEW PC AND PS 



THE FOLLOWING REPRESENTS THE EQUIVALENT OF "MOV PS,2(ADINT)" 



6lr 

MOV 

MOV 

TRAP 

MOV 

MOV 

RTI 

MOV 

MOV 

MOV 

MOV 

RTI 

MOV 
MOV 
MOV 
CLR 
INC 
BNE 



-(SP) 
34. -(SP) 
16^$, 34 

2(SP),6(SP) 
168$, (SP) 

(SP)+,34 
(SP)+,2(ADINT) 
PRO.-(SP) 
•69$, -(SP) 

*-i. acoc 

•BUFBEG,aCDA 

•100. acos 

COUNT 
COUNT 
1$ 



SAVE CURRENT TRAP VECTOR 
SETUP NEW TRAP VECTOT 
;;PUSH OLD PSW AN PCON STACK 

:; REPLACE OLD PC WITH NEW 
;; RESTORE PSW 

;; RESTORE OLD TRAP VECTOR 

PUT NEW PS ON STACK 
PUT NEW PC ON STACK 
POP NEW PC AND PS 



;SET UP COLUMN COUNT 
SET UP BUS ADDRESS 
ENABLE INTERRUPTS 
INITIALIZE COUNTER 

;WAIT AWHILE 



TO READ 1 COLUMN 



THE FOLLOWING REPRESENTS THE EQUIVALENT OF -(10V 2(ADINT) ,PS" 



ftov 

MOV 
RTI 

CLR 
BR 

ERROR 

CNP 

CLR 

CLR 

MOV 



2(ADINT).-(SP) 
•70$, -(SP) 



3C0S 
C0NT20 
+2i 
(SP)+, 
3C05 
3»232 
•232, 



(SP)+ 



aADINT 



;:PUT NEW PS ON STACK 

PUT NEW PC ON STACK 
•I POP NEW PC AND PS 

; DISABLE FURTHER INTERRUPTS 

:AN INTERRUPT OCCURRED 
; RESTORE STACK 
DISABLE FURTHER INTERRUPTS 
CHANGE INTERRUPT RETURN ADDRESS TO^ 
CAUSE A HALT IF AN INTERRUPT OCCURS 



IDS 



M^INOEC - 11 - D2CD8-B HftCYll 27(654) l-JUL-77 
DZCOB.Pll T20 TEST NO INTERRUPT UITH IE 



D8:3S PflGE HO 
SET & REST CLEARED 



SEQ Qllt 



2001 



200S 
2005 
200b 
2007 



2010 
2011 
2012 
2013 
201" 
201b 
201b 
2017 
2018 
2019 
2020 
2021 



321 
»02 
2028 
202S 
2030 

m 

2033 
2034 
2035 
203b 
2037 
2036 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
204b 
2047 
2048 
2049 
2050 
2051 
2052 



010470 
010472 
01047b 

010502 

010515 
010520 
01052b 
010532 
010534 
nQ540 




OK 
01QSb4 




lOblO 
010614 
OlOblb 
010b22 



010b2b 
0l0b30 
010b34 
010b42 
gi0b44 
OlQb52 
01^ 

01^64 
0l0b70 
010b7b 
010702 
01070b 
010710 
010710 
010714 
010720 
010724 
010726 
010730 
010734 



000004 
004737 
012712 

0050% 

8{i73^ 
1044W 
Olbbbb 

oiSool 

012637 



01374b 
012746 
000002 



005046 
013746 
012737 
104400 
Olbbbb 
012716 
000002 
012637 
012bb2 

00504b 
01374b 
012737 
104400 
Olbbbb 
01271b 
000002 
012b37 
012b37 
042737 
01374b 
01274b 
000002 

012714 
012715 
012713 
000777 
022626 
012712 
013746 



025744 
010726 



134 
20 



000002 
010534 

000034 
001214 
000340 
001214 
010564 



000034 
010602 

000002 
010616 

000034 
000002 



000034 
010644 

000002 
OlGbbO 

000034 
001214 
000340 
001214 
010710 



177777 
045442 
000101 



010764 
000000 



ITEST 21 SIHULTWCOUS INTERRUPTS AT MORE THRN 1 LEVEL 

'f«ftft*««»«f»««fftf»ff»««fftt«ffMffffftft«»ff«ftftftft««»«f«ft««««ft«»«««« 



tST21: 



000034 
000006 

001214 



000034 
000006 



641: 



65S: 



66S: 



67$: 



68S: 



000034 
000006 

001214 



69S: 



705: 



71$: 



TINT21: 



SCOPE 

JSR PC. INIT ; INITIALIZE CSR TO ZERO 
NOV •t1nT21.3ADINT :SETUP RETURN ADDRESS 
THE FOLLOUING ftEPRESENT§ THE EQUIVALENT OF "BIS 1340, PS" 



tLR 
MOV 
NOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 
BIS 
MOV 
MOV 
RTI 



-(SP) 
34. -(SP) 
•64$, 34 

2(SP),6(SP) 
•65$,!SP) 

(SP)+,34 
(SP)+I$THP6 
•340.iTMP6 
$TM%,-(SP) 
•66$. -(SP) 



SAVE CURRENT TRAP VECTOR 
SETUP NEW TRAP VECTOT 
J PUSH OLD PSW AN PCON STACK 

:; REPLACE OLD PC WITH NEW 
;; RESTORE PSW 

RESTORE OLD TRAP VECTOR 



;PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEW PC AND PS 



THE FOLLOUING REPRESENTS THE EQUIVALENT OF "MOV PS,2(ADINT)' 



tLR 
MOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 



-(SP) 
34. -(SP) 
•6^$, 34 

2(SP),6(SP) 
•68$, (SP) 

(SP)+,34 
(SP)+.2(ADINT) 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
;PUSH OLD PSU AN PCON STACK 

' :; REPLACE OLD PC WITH NEU 

;; RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 



THE FOLLOWING REPRESENTS THE EQUIVALENT OF "6IC «340,PS" 



tlR 
MOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 
BIC 
MOV 
MOV 
RTI 

r*ov 

flOV 

MOV 

BR 

CMP 

MOV 

MOV 



-(SP) 
34. -(SP) 
•64$,34 

2(SP),6(SP) 
•70$, (SP) 

(SP)+,34 
(SP)+.$TMP6 
•340,iTMP6 
$TMP6,-(SP) 
•71$, -(SP) 

•-1. aCDC 
•BUFBEG,SCDA 
•101, 9C0S 

(SP)+. (SP)+ 

•TINA21.afiDINT 

PRO,-(SP) 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
•PUSH OLD PSU AN PCON STACK 

:; REPLACE OLD PC UITH NEU 
' * RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 



:PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
; POP NEU PC AND PS 

SET UP COLUMN COUNT TO READ 1 COLUMN 

SET UP BUS ADDRESS 

SET INTERRUPT ENABLE AND READ 

WAIT FOR INTERRUPT 

RESTORE STACK POINTER 

CHANGE RETRUN ADDRESS 

;PUT NEU PS ON STACK 



J 



n^ifcec - 11 - Dzroe-8 



OZCDB.Pll 



2053 010740 0127% 
205H 0107^*4 000002 



000240 




20b 1 
2062 
2063 
»4 
iS 



20f>8 
2069 
|g70 

2072 

2074 
2075 



2078 
2079 
2080 
2081 



2086 

"V 



2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
:i04 
2105 
2106 



1Q7« 

10760 
010762 
"1Q762 
10764 
010766 
010770 
Q1Q772 
1310776 



8 



16246 
12746 
000002 



000402 
022626 
104025 
005013 
005037 
012712 



011002 000004 



01 1004 004737 
011010 012712 



18^ 8 



11014 
11016 
011022 
011030 
01 1032 
011040 
011044 
011046 
011052 
011056 

§11064 
11070 
11074 
011076 



011076 
011100 
011104 
011112 
011114 
011122 
011126 
011130 
011134 

011140 
011142 
011146 
011154 
011156 
011164 



S 35046 
13746 
012737 
104400 
016666 
012716 
000002 
012637 
012637 
052737 
013746 
Q12746 
300002 



005046 
013746 
012737 
104400 
016666 
012716 
000002 
012637 
012662 

005046 
013746 
012737 
104400 
016666 
012716 
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SIHULTflfCOUS INTERRUPT5 AT HOfiE THflN 1 LEVEL 



SEQ 0113 



0107% 



10762 



000232 
000232 



02S744 
011240 



000034 
011032 

000002 
011046 

000034 
001214 
000340 
001214 
011076 



000034 
011114 

000002 
011130 

000034 
000002 



000034 
011156 

000002 
011172 



64S: 



HOV •64$, -(SP) ;;PUTNEUPCON STACK 

RTI ; ; POP NEU PC AND PS 

NOP ' UAIT 

THE FOLLOWING REPRESENT^ THE EQUIVALENT OF "MOV 2tADINT),PS" 



Aov 

MOV 
RTI 



2(A0INT).-(SP) 
1651, -(5^) 



65S: 

BR C0NT21 

TINA21: CMP (SP)+, (SP)+ 

ERROR +25 

C0NT21: CLR SCDS 

CLR SI232 

MOV 1232, SAOINT 



PUT NEH PS ON STACK 
PUT NEW PC ON STACK 
POP NEW PC AND PS 



; RESTORE STACK 

;THE INTERRUPT OCCURRED AT 2 LEVELS 

{DISABLE INTERRUPTS 
CHANGE INTERRUPT RETURN ADDRESS TO 
CAUSE A HALT IF AN INTERRUPT OCCURS 



000034 
000006 

001214 



»TEST 22 NON-EXISTANT MEMORY DETECTION 

TST22' SCOPE 

JSR PC. INIT ; INITIALIZE CSR TO ZERO 
HOV •TlNT22^aADINT -SETUP RETURN ADDRESS 
:THE FOLLOWING REPRESENTS THE EQUIVALENT OF "BIS «340,PS" 
*• - -(SP) 

34. -(SP) I -SAVE CURRENT TRAP VECTOR 

•6^5,34 SETUP NEW TRAP VECTOT 

PUSH OLD PSW AN PCON STACK 



000034 
000006 



64S: 
65S: 

66S: 

67$: 

bSS: 



tLR 
MOV 
HOV 
TRAP 
HOV 
MOV 
RTI 
HOV 
HOV 
BIS 
HOV 
MOV 
RTI 



2(SP),6(SP) 
i65S,l5P^ 

(SP)+,34 

(SP)''.5TMP6 

•340,iTMP6 

JTMPfe,-(SP) 

I66S,-(5P) 



: {REPLACE OLD PC WITH NEW 
;; RESTORE PSW 

; {RESTORE OLD TRAP VECTOR 



PUT NEW PS ON STACK 
PUT NEW PC ON STACK 
POP NEW PC AND PS 



THE FOLLOWING REPRESENTS THE EQUIVALENT OF "HOV PS,2(ftDINT)' 



tLR 
HOV 
HOV 
TRAP 
HOV 
HOV 
RTI 
MOV 
MOV 



-(SP) 
34. -(SP) 
•6>S,34 

2(SP),6(SP) 
I68S,ISP) 

(SP)+,34 
(SP)+ 2(A0INT) 



SAVE CURRENT TRAP VECTOR 
SETUP NEW TRAP VECTOT 
••PUSH OLD PSW AN PCON STACK 

HREPLACE OLD PC WITH NEW 
{{RES.ORt PSW 

{ {RESTORE OLD TRAP VECTOR 



JHE F0LL0WIN6 REPRESENTS THE EQUIVALENT OF "BIC i340,P5' 

6lr -(SP) 



000034 
000006 



69S: 



MOV 

HOV 

TRAP 

HOV 

HOV 



34. -(SP) 
i6^S.34 

2(SP),6(SP) 
•70$,lSP) 



SAVE CURRENT TRAP VECTOR 
SETUP NEW TRAP VECTOT 
PUSH OLD PSW AN PCON STACK 

{{REPLACE OLD PC WITH NEW 



M^INO£C - ii - D2C08-B 
DZCOe.PU T22 



§110 
2111 

2113 
2114 
2115 
2116 
2117 

IWt 

2120 

2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 

iiis 

2136 
2137 
2138 
213'? 
21H0 
21H1 
2142 
2143 
2144 
2145 
214b 
2147 
2148 
2149 

2152 
2153 
2154 
2155 
2156 
2157 

2160 



mm 

011176 
11214 

A if 

lit 

lU 
011232 

11240 
011242 
11246 
11252 
0112S4 
0112S6 

011260 
011262 
011264 

011266 
011272 
011274 

011276 
011302 
011304 

011306 
011312 
011314 

011316 
011322 
011j24 

011326 
011332 
011334 
011342 

011344 
011350 
011352 

8!i^ 



m 

012637 
?*5?37 
013746 

012714 
012715 
012713 
000777 
022626 
005037 
012712 
105713 
100401 
104023 

005713 
100401 
104026 

032713 
001001 
104027 

032713 
001001 
104030 

032713 
001001 
104031 

032713 
001401 
104032 

022715 
001404 
012737 
104033 

022714 
001404 
012737 
104034 
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KU3 



000034 
001214 
000340 
001214 
011222 



177773 
160000 
000161 



000232 
000232 



001000 

000040 

000020 

076417 

160002 
160002 

177774 
177774 



001214 



70S: 



711: 



TINT22: 



001210 



001210 



IS: 
2S: 
3S: 
4S: 
5S: 
6S: 

7S: 
lOS: 



RTI 
MOV 
MOV 
BIC 
MOV 
MOV 
RTI 

MOV 
MOV 
MOV 
BR 
CMP 
CLR 
MOV 
TSTB 
BMI 



(SP)+,34 

(SP)+.STMPb 

l340,iTMPb 

STHP6,-(SP) 

•71S,-(SP) 

1-5. aCDC 
tl6C)000,SC0P 
1161, SCDS 



(SP)+, 
ai232 
1232, 
3005 
IS 



(SP)* 
SPOIMT 



ERROR 423 

TST aCDS 
BMI 2S 
ERROR -^26 

BIT 11000, 
BNE 3S 
ERROR +27 

BIT 140, 
BNE 4S 

ERROR +30 

BIT 120, 
BNE 5S 
ERROR +31 



aCD5 



3C0S 



acos 



BIT «07b417,aCDS 
BEQ 6S 
ERROR +32 

CMP 1160002,3000 
BEQ 7S 

MOV «160002,$TMP4 
ERROR +33 

CMP 1-4, acoc 

BEQ lOS 

MOV •-4,$TMP4 

ERROR +34 



SEQ 0114 



;; RESTORE PSU 

;; RESTORE OLD TRAP 

:PUT NEW PS ON STfiOK 
PUT NEW PC ON STACK 
POP NEH PC AND PS 



VECTOR 



MEMORY 
X MEM BITS SET 



SET INTERRUPT ENABLE AND READ, 
WAIT FOR INTERRUPT 
RESTORE STACK 

CHANGE INTERRUPT RETURN ADDRESS TO 
CAUSE A HALT IF AN INTERRUPT OCCURS 
CHECK FOR CONTROLLER READY 
BRANCH IF SET OK 

; CONTROLLER READY DIDN'T SET 

: CHECK FOR ERROR (BIT 15) 
; BRANCH IF SET OK 

; ERROR BIT IS NOT SET 

; CHECK FOR NON-EXISTANT MEMORY (BIT 9) 
BRANCH IF SET OK 

•,BIT 9 NOT SET 

: CHECK FOR EXTENDED MEMORY BIT 17 SET 
BRANCH IF SET OK 

; EX-MEM BIT 17 GOT CLEARED 

; CHECK FOR EX-MEM (BIT 4) 
; BRANCH IF SET OK 

; EX-MEM (BIT 4) GOT CLEARED 

: CHECK FOR ANY OTHER BITS 
BRANCH IF OK 

; EXTRA ERROR BITS SET 

: CHECK ADDRESS BUFFER 
■BRANCH IF OK 

•CORRECT 'CDA' CONTENTS FOR ERROR REPORT 
;BUS ADDRESS REG CHANGED 

; CHECK COLUMN COUNT REG 
: BRANCH IF OK 

CORRECT 'CDC' CONTENTS FOR ERROR REPORT 
{COLUMN COUNT REG CHANGED 



011362 000004 



*TEST 23 EXECUTE DA'''I,DATOB(LOW BYTE) LOAD ON COLUMN COUNT 

tST23: SCOPE 



Dzcoe.pu 



2lbl 
2lb2 

2165 
2lbL 
2167 
2168 

li^S 

2171 
2172 
2173 
|l7M 
2175 
2176 
2177 
2178 
217<J 
2160 

m 

2183 
2184 
2185 
2186 
2187 
2186 
2189 
2190 
2191 
21S2 
21S3 
2194 
2195 
21% 
2197 
2198 
2199 
220C 



IP 

220S 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 



011364 

011374 
011376 

011406 
011410 



011410 
011412 

011414 
011420 



DZCOe-6 
T23 

005014 

110014 
020014 



m 

104034 



000004 
005014 

012700 
110064 



011424 005714 



01142b 
011430 
011434 

011436 



011436 
011440 

011442 

011446 



0014Q3 
005037 
104034 



000004 
005014 

012714 

005414 
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EXECUTE MTI.OATOeCLOh BYTE) LOflO ON COLUHN COUNT 



000152 



001210 



CLR 

COM 
NOV 

novo 

CflP 

BEG 
NOV 

ERROR *3H 



3CDC 



3C0C 
I152.R0 

Ro,a£oc 

RO.SCDC 
IS 

R0,STHP4 



IS: 



;CLEfW COLUMN COUNT RfGISFFR 
; PRIOR TO BYTE LOfiOiNG 



ATTEMPT TO LOAD LOWER BYTE 
OF COLUHN COUNT REGISTER 
010 HIGH BYTE GET LOADE:j AS 
WELL ON A LOW BYTE LOADING' 
BRANCH IF YES 

STORE GOOD DATA - SHOULD BE 
HIGH BYTE NOT LOADED ON A LOU 
BYTE LOAD OF COLUMN COUNT REGISTER 



,«TEST 24 EXECUTE DATI,DATOB(HIGH BYTE) LORD ON COLUMN COUNT 

tST24: SCOPE 



125252 
000001 



001210 



CLR 

MOV 
MOVB 

TST 

OPQ 

CLR 



9C0C 

•1 25252, RO 
R0,+1(RA) 

acoc 



ERROR ^34 



IS 

STMP4 



IS: 



CLEAR COLUMN COUNT REGISTER 
PRIOR TO BYTE LOADING 
SET VALUE FOR BYTE LOi?Q FROM RO 
ATTEMPT TO LOAD HIGH BtTE 
OF COLUMN COUNT REGISTER 
DID LOW BYTE GET LOADED ^S 
WELL ON HIGH BYTE LOADIhG' 
BRANCH IF NO 

STORE GOOD DATA - SHOULD BE 

LOW BYTE LOADED ON A HIGH 

BYTE LOAD OF COLUHN COUNT REGISTER 



;iTEST 25 EXECUTE DfiTI.OfiTIP ON COLUMN COUNT REGISTER 

:»«««««««««t««««»««ft«»«ft««m««»««*««f «««#««««»«««»»«««« >««««««« 

tST25: SCOPE 



100000 



01 1450 022714 inOQOO 

011454 001404 

011456 012737 100000 001210 

011464 104034 

011466 



011466 000004 
011470 005015 



CLR 
MOV 
NEG 
CMP 

eEQ 

MOV 

ERROR +34 



9CDC 



i 1 00000, aCDC 
3CDC 

ilOOOOO.SCDC 
IS 

•100000, STMP4 



IS: 



CLL;W COLUMN COUNT REGISTER 
PRIOR TO 'OAT IP' PROCESS 
SET A KNOWN VALUE INTO COLUMN 
COUNT REGISTER 

PERFORM DATIP, ON COLUMN COUNT 
REGISTER 

IS CONTENTS = 100000' 
BRANCH IF YES 

STORE GOOD DATA - SHOULD BE 
CONTENTS OF COLUMN COUNT REGISTER 
INCORRECT 



:ftTEST 26 EXECUTE 0ATI,0AT0B(LOU BYTE) LOAD ON BUS ADDRESS 

:««««»«««f««««»«fft*»«ft«ft««««H««««>ift«»«««ft««if««««*ftf «««««««««« 

tST26: SCOPE 

CLR aCDA ; CLEAR BUS ADDRESS REGISTER 

PRIOR TO BYTE LOADING 



«1IN0£C - 11 

ozcoe.pii 
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T26 EXECUTE OATI,OATOB(LOU BYTE) lOfiO Oh BUS flOORESS 



SEQ 01 lb 



2217 

i 

Ilia 



2227 
2226 

ill? 

2232 



2240 
2241 

iisM 

22M5 

2246 
224'9 
2250 

lib 

2253 
2254 

1^ 



22{i3 
22b4 
^5 



8iiw'» 8?lliS oaa>» 

OUSOO 110015 

011502 020015 

0115CH rai403 

OllSOb 010037 001210 

011512 10M033 

011514 



01 1514 Q0n004 

01151b 005015 

m m 

011530 005715 

011532 001403 

011534 005037 001210 

011540 104033 

011542 



011542 000004 

011544 005015 

01154b 012715 100000 

011552 005415 

011554 022715 100000 

QllSbO Q01404 

OllM 012737 100000 001210 

011570 104033 

011572 



novB 

Cff» 



9CM 

•152.R0 

R0,9C0A 

RO.aCOA 



BEQ IS 

nOV R0,ITf1P4 

ERROR 433 



IS: 



;flTTEffT TO LOAD LOtCR BYTE 
;0F BUS MX)RE5S REGISTER 
;DI0 HIGH BYTE GET LOWED AS 
;UELL ON A LOU BYTE LOADING? 
; BRANCH IF YES 

;STORE GOOD DATA - SHOULD BE 
;HIGH BYTE NOT LOADED ON A LOW 
;BYTE LOAD OF BUS ADDRESS REGISTER 



glip72 000004 



„J74 004737 025744 

22bb 011600 012712 01214b 
22b7 

22b8 011b04 00504b 



:«ft«««ftft«»ft«««ft««f««««««««ft««««f «««««««««§««««««««§«««««««««»*«« 

;«TEST 27 EXECUTE OATI.DATOBCHIGH BYTE) LOAD ON BUS ADDRESS 

:ft«tf«««tf«««f«f«««fft««»««ft««»«ft««««««««ftff«««f«f ««««»«««#««««««« 

tST27: SCOPE 

CLR 9C0A ; CLEAR BUS ADDRESS REGISTER 

; PRIOR TO BYTE LOADING 
NOV I 125252. RO SET VALUE FOR BYTE LOAD FROM RO 

NOVB R0,+1(R§) ATTEMPT TO LOAD HIGH BYTE 

;0F BUS ADDRESS REGISTER 
TSl aCDA DID LOU BYTE GET LOADED AS 

;UELL ON HIGH BYTE LOADING? 
BEQ IS ;BRANCH IF NO 

CLR STnP4 STORE GOOD DATA - SHOULD BE 

ERROR 4-33 ;LOU BYTE LOADED ON A HIGH 

;BYTE LOAD OF BUS ADDRESS REGISTER 

IS: 

»TEST 30 EXECUTE DATI.DATIP ON BUS ADDRESS REGISTER 

:«»»«ft««««ft««««««««««»fftft«ftfftffft«ffft«ftf«««««««««f ««««»«««««#«§«« 

tST3n: SCOPE 

CLR SCOA ; CLEAR BUS ADDRESS REGISTER 

; PRIOR TO 'DAT IP' PROCESS 
NOV 1100000, aCDA ;SET A KNOUN VALL'S INTO BUS 

ADDRESS REGISTER 
NEG 3CDA ; PERFORM DAT IP, ON BUS ADDRESS 

REGISTER 

CMP 1100000, aCDA ;IS CONTENTS = 100000' 

BEO IS 'BRANCH IF YES 

MOV |IOOOOO,STMP4 -STORE GOOD DATA - SHOULD BE 

ERROR 433 ; CONTENTS OF BUS ADDRESS REGISTER 

INCORRECT 

IS: 

;*TEST 31 UORD COUNT OVERFLOW TO 2N0 CARD 

TST31: SCOPE 

JSR PC.INIT ; INITIALIZE 

MOV ITInTSI^INT : set up a RETURN ADDRESS 

:THE FOLLOWING ftEPRESENTS THE EQDivPLENT OF "BIS 1340, PS" 
6lR -(SP) :: 



:.zcoe p. I 

m I 



1 - ozcoe-B 

T31 



0137% 
012737 



01 
0 



a|93 01 



8i 



6^0 

170M 

1720 
172M 
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UORD COUNT OVERFLOU TO 2rC CARD 



S£Q 0117 




00003*} 

011622 00003M 



000002 

QS2737 
0117% 
01«?7% 
OOOOOS 



0050% 
01374b 

im 

QlbMb 

m 

012637 
0l2b£>2 

0050% 
0137% 
012737 
10441 
6l|^l 



000006 64S: 
65S: 



000034 
001214 

000340 001214 
001214 
01 1666 



000034 
000002 



000034 

011746 000034 




000034 

10340 
11214 
012012 



001214 



000034 
001214 

000000 001214 



001214 
IJ12074 



66S: 



000034 

011704 000034 

000002 000006 67S: 
011720 



6BS: 



000002 000006 69S: 
011762 



70S: 



711: 



000034 

012030 000034 

000002 000006 72S: 
012044 



012714 177657 



73S: 



741: 



NOV 

NOV 

TRAP 

NOV 

NOV 

RTI 

NOV 

NOV 

BIS 

NOV 

NOV 

RTI 



34 -(SP) 
•6^5,34 

2(SP).6(SP) 
•bSSjSP) 

(SP)+,34 

(SP)+.$TMP& 
•340.4THP6 
|TNP6,-(SP) 
•661, -(SP) 



;SflVE CURRENT TRAP VECTOR 
; SETUP NEU TRAP VECTOT 
;PUSH OLD PSU AN PCON STACK 

:: REPLACE OLD PC UITH NEU 
; RESTORE PSU 

RESTORE OLD TRAP VECTOR 



PUT NEU PS UN STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 



THE FOLLOUING REPRESENTS THE EQUIVALENT OF "NOV F5,2(ADINT)* 



6lr 

NOV 
NOV 
TRAP 
NOV 
NOV 
RTI 
NOV 
NOV 



-(SP) 
34. -(SP) 
i67S,34 

2(SP),6(SP) 
•68S,(SP) 

(SPJ+,34 
(SP)+l2(A0INT) 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
PUSH OLD PSU AN PCOli STACK 

REPLACE OLD PC UITH NEU 
; RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 



•.THE F0LL0KIN6 REPRESENTS THE EQUIVALENT OF "BIC 1340, PS" 



tLH 
NOV 
NOV 
TRAP 
NOV 
NOV 
RTI 
NOV 
NOV 
BIC 
NOV 
NOV 
RTI 

CLR 

NOV 

NOV 

TRAP 

NOV 

NOV 

RTI 

NOV 

NOV 

BIS 

NOV 

NOV 

RTI 

NOV 



-(SP) 
34- -(SP) 
t6^,34 

2(SP),6(SP) 
I70S,(SP) 

(SP)*,34 

(SP)+.STHP6 

•340,tTHP6 

ITNPb,-(SP) 

•7U,-(SP) 

-(SP) 
34. -(SP) 
•7Sl,34 

2(SP),6(SP) 
•73S,(SP) 

(SP)+,34 
(SP)+.STNP6 
l000,iTNP6 
ITHPfe,-(SP) 
•74$, -(SP) 



»-8i.,acoc 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
•PUSH OLD PSU AN PCON STACK 

:; REPLACE OLD PC UITH NEU 
; RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 

PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 

I SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
I PUSH OLD PSU AN PCON STACK 

' REPLACE OLD PC UITH NEU 

; RESTORE PSU 

RESTORE OLD TRAP VECTOR 

PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 

;SET COLUNN COUNT TO READ 81. COLUHNS 
•I.E. - URAP AROUfID INTO 2N0 CARD 



c:cDe. Pu 



11 



Dzcoe-B 

^31 



012100 01271S 



512104 
012110 
012112 

012114 
012126 



012134 



10037() 
0162% 



005037 



012140 104041 



012142 

012152 
012154 
012158 
012162 

012166 
012170 
012174 
012176 
012204 

012206 



000137 

l(5O40l 
104023 
005013 
012712 
005037 

022626 
022715 
001404 
012737 
104033 



012206 000004 

012210 004737 

012214 012714 

012220 012715 



012224 
012232 
012240 
12242 
12244 
0122% 
012250 



8 



012737 
012737 
005213 
105713 
100376 
000402 
104070 



012252 022626 



BIO 
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UORO COtWT OVERFLOW TQ 2rC CfiRD 



SEQ 0116 



045442 
OQOiOl 



000002 
012126 



000232 
000232 



012206 



000232 
000232 



045704 
345704 



nov 



ieUFBEG,9CDP 



IS: 



75$; 



nov 1101, acDS 

TSTB 3CDS 

BP. 1$ 

:THE FOLLOWING REPRESENTS 

ftOV 2(fl0INT) -(3P) ; 

NOV »7S%,-iSP) ; 
RTI ; 



iftUTOnATICflLLY 

SET UP STARTING BUFFER WQRESS 
FOR DUMP OF CflRD/S CONTENTS 
SET INTERRUPT ENRBLE & i^RQ 
HE CONE tCRE rtiPITlNG T»C INTERRUPT 
.RHRIT INTERRUPT 
THE EOijIVflLENT OF "NOV 2(flOINT),PS" 
; PUT NEW PS ON STftCK 
PUT NEW PC ON STftCK 
; POP NEW PC RND PS 



CLR 
NOV 
CLR 



3CDS 

l232.9ftOINT 
3123^ 



ERROR +41 



TINT31: 



IS: 



JHP 

TSTB 

Bfll 



T31END 

9CDS 

IS 



001210 



ERROR +23 
CLR 9CDS 
NOV i232.aftOINT 
CLP at23^ 

CNP (SP)+.(SP)+ 
Cnp M6UFBEG+242,SC0ft 
8EQ T31END 
NOV •BUFBEG+242,STMP4 
ERROR +33 



T31EMD: 



RND GIVE CONTROL BflCK TO THE 
PROCESSOR 

51§«5t£ INTERRUPTS 

RESTORE INTERRUPT RETURN flOORESS 

TO 'HRLT* IF PN UNEXPECTED INTERRUPT 

OCCURS 

NO INTERRUPT WITH PROCESSOR AT 
LEVEL 0 

GO TO NEXT TEST 

IS CQHTRQLLER READY SET' 

BRRNCH ir YES 

INOICRTE CONTROLLER REflOY NOT SET 
DISABLE FURTHER INTERRUPTS 
RESTORE INTERRUPT RETURN ADDRESS 
TO 'HALT' IF AN UNEXPECTED INTERRUPT 
OCCURS 

RESET STACK FROM THE INTERRUPT 
UERE 2 CARDS READ^' 
BRANCH IF APPARENTLY SO 
STORE GOOD DATA - SHOULD BE 
BUS ADDRESS DOESN'T CORRELATE 
TO HAVING READ 2 CARDS 



025744 
177777 
045443 

012250 
000340 



»TEST 32 BUS ADDRESS ODD & TRANSFER IN NON-PACK NODE 

tST32: SCOPE 



000010 
000012 



IS: 



2S: 



JSR PC.INIT 

MOV I-LaCDC 

MOV tBU^BES^l.aCDA 

MOV •2S.RESVEC 

NOV •346,RESVEC+2 

INC acos 

TSTB acos 

BPL IS 

BR 3S 

ERROR +70 



012254 012737 000012 000010 3S: 



CMP 
MOV 



(SP)+,(SP)+ 
il2,10 



INITIALIZE 
SET COLUMN COUNT TO READ 1 COLUMN 
SET BIFFER ADDRESS. FOR COLUMN DUMP, 
TO HIGH BYTE OF UOAO 
SET RETURN FOR ILLEGAL INSTRUCTION 
SET PS FOR ILLEGAL INSTRUCTION 
READ A CARD 

WAIT FOR CONTROLLER READY 
WAIT TILL DONE! 
GO TO NEXT TEST 

ODD BUS ADDRESS CAUSED A TRAP IN 
NON- PACK MODE 

RESET STACK FROM ILLEGAL INSTRUCTION 
TRAP 

RESTORE TRflPCATCHER AREfi FOP 



DZCDB.PU 



U - 



CID 

DZCOe-B HPCYll 27(E)54) l-JUL-77 08:39 PftGE 47 
T32 BUS fiOORESS 000 & TRflNSFER IN HON-PflCK MODE 



SEO 0119 



2377 
2378 
237? 
2380 
2381 
2382 
2383 
2384 
238S 
2388 
2387 



2398 
2399 
2400 
2401 
2402 
2403 
2404 
240S 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 



0122b? 0OS037 000012 



012266 
012270 
012276 
012300 
012304 
012310 



000004 
032777 
001406 
104400 
005137 
000137 



CLR 3112 iUfCXPECTED TRAPS TO LOCATION 10 

; CHECK SH7 AND RETURN TO TESTl IF SET, A^TER RINGING BELL 
OTHERUISE GO INTO THE DATA TEST 



000200 166640 

001222 
001254 
002534 



^NOCK: 



SCOPE 
BIT 
BEQ 
TYPE, 
COM 
JMP 



I200.SSUR 

DATSt 
SBELL 
TRFLG 
RESTRT 



IS SU<07> SET' 

BRANCH IF NOT TO DATA TESTING 

RING-A-DING 

TOGGLE TRACE FLAG 

GO BACK TO INSTRUCTION TESTS 



;/«\:/*\:/»\:/»\:/»\:/#\:/»\:/«\:/«\:/»N:/«\:/»\:/»V:/«\:/»\:/«N:/«N:/«N: 

;THIS HARKS THE END OF THE INSTRUCTION TESTING 
•THIS SECTION REQUIRED 16 CARDS FOR COMPLETION 

; / : \#/: \»/ : \#/: \#/: \#/: \#/: \»/: \#/: \#/: \»/: \»/: \»/: \#/: \»/: \»/ : \#/: \#/ : \* 
;/:\»/:\»/:\«/:\*/:\»/:\«/:\»/:\«/:\»/:\»/:\«/:\«/:\«/:\«/:\»/:\*/:\»'':\» 



DATA RELIABILITY TEST FOR CDli 



012314 
012320 
012324 
012330 
012334 
012340 
012346 
012350 
Q123S6 
Q12364 
012372 
012374 
012402 
012410 
012416 
012422 
012424 
012424 
012430 
012434 
012436 
012436 
012440 



104400 
gfe037 
005037 
0Q5U37 
005037 
032777 
001412 
012737 
012737 
012737 
000411 
012737 
012737 
012737 
005737 
001006 

013746 
012746 
000002 

0004 u 
032777 



031305 
001212 
015334 
015332 
001260 

000020 166570 

030160 015326 
030420 015330 
033143 014574 

027600 015326 

030040 015330 

033132 014574 
001254 



000340 
012436 



010000 166470 



iCHECK 
6aTST: 



ALPl: 

CONTD: 
NOTRPl 

64S: 
TRPl: 



SUR FOR 
TYPE, 
CLR 
CLR 
CLR 
CLR 
BIT 
BEQ 
MOV 
MOV 
MOV 
BR 
MOV 
MOV 
MOV 
TST 
BNE 

MOV 
MOV 
RTI 

BR 
SIT 



TYPE OF 
MOATA 
STMPS 
CLCNT 
CDCNT 
ERFLG 
M20, 
ALPl 
»BINCD 



•BINEN6+2.TEND 
•MSG15, OtCK 
CONTD 

•ALPCD. TSTART 

•ALPEN0+2.TEND 

•MSG14, D^CK 

TRFLG 

TRPl 

PR7.-(SP) 
•64$, -(SP) 



DCNTl 

110000, asuR 



DECK BEING TESTED. AND INITIALIZE POINTERS 
; INDICATE "ENTERING DATA TESTS" 
INITIALIZE TABLE OFFSET FOR CARD 11 OF DECK 
MAKE SURE COLUMN COUNT IS ZERO 
SETUP CARD COUNT TO ENTER DATA TABLE AT BEGINNING 
FLAG SET PREVENTS PRINTING OUT ERROR HEADING 
CHECK BIT 4 OF aSUR FOR TYPE OF DECK 
BRPNCH IF NOT SET TO LOAD ALPHANUMERIC POINTERS 
BIT 2 SET, LOAD BINARY TABLE POINTERS 



9SUR 



TSTART 



: BRANCH AROUND ALPHANUMERIC POINTERS 
•LOAD ALPHANUMERIC TABLE POINTERS 

: CHECK TRACE TRAP FLAG 
•BRANCH IF FLAG MAS SET 

;;PUT NEW PS ON STACK 
PUT NEW PC ON STACK 
I ; POP NEW PC AND PS 

;Ch£CK SU12 TO INHIBIT TRACE TRAPPING 



1AIN0EC - U - DZCOe-B 

ozcoe.pu 



MACYll 27(fa54) l-JUL-77 
WTfl RELlfiSILITY TEST 



08:39 PAGE 48 



DiO 



012450 
Q12H54 
012%0 
012462 
012462 



0013b& 
0137% 
012746 
000002 



012466 012712 012730 



2433 
2M3M 
2435 

2436 
2437 
2438 
243"3 
2440 

2441 012473 005046 

2442 012474 013746 

2443 012500 012737 

2444 01c506 104400 

2445 012510 016666 

2446 012516 012716 

2447 012522 000002 

2448 012524 012637 

2449 012530 012637 

2450 012534 042737 

2451 012542 013746 

2452 012546 012746 

2453 012552 000002 
2M54 012554 

2455 

2456 012554 005046 

2457 012556 013746 

2458 012562 012737 

2459 012570 104400 
12572 016666 
12600 012716 

012604 000002 

12606 012637 

12612 012662 

12616 013701 

P12622 012700 

012626 012737 

012634 012737 

\^^'' 

012650 
012654 
012662 
012664 
012672 
012674 
012700 
012702 
012706 
012710 
012714 
012720 
012722 
012726 



000360 
012462 



004737 025744 



8 



>461 
2462 
2463 
2Hb4 
2465 
2466 
2467 
2468 

§4^3 Sill?! iiSns 

2471 012650 012713 

2472 Q12654 032777 

2473 012662 001406 

2474 012664 032777 

2475 012672 001002 

2476 012674 004737 

2477 012700 0G5213 

2478 012702 032713 

2479 012706 001775 

2480 012710 011437 

2481 012714 032713 

2482 012720 ^1375 

2483 012722 005037 

2484 012726 000765 



000034 
012572 

000002 
012606 

000034 
000002 
015326 
045442 
177660 
177660 
015314 

000100 

ooooin 

000004 

014522 

004000 

015340 
004000 

015340 



64S: 

DCNTl: 

;SET UP 



Bf€ 
MOV 
MOV 
RTI 

JSR 



000034 

012510 000034 

000002 000006 
012524 

000034 
001214 

000340 001214 

001214 

012554 



000034 
000006 



64S: 
65S: 

66S: 

67S: 
68S: 



015314 
015316 



166254 
166244 



COREAO: 
BKGNO: 



BKQNOl: 



NOTRPl 
TRACE, -(SP) 
•64$, -(SP) 



; BRANCH IF SET 
PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 



PC, 



INIT ; INITIALIZE CARD READER STATUS REGISTER 



INTERRUPT SERVICING. AND START READING 
MOV ISRVC, SAOInT rSETUP RETURN POINTER 
:THE FOLLOUINd REPRESENT^ THE EQUIVALENT OF "BIC 1340, PS" 

^1 o ^feo\ 



"LR 
MOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 
BIC 
MOV 
MOV 
RTI 



-(SP) 
34,-(SP) 
•64s, 34 

2(SP),6(SP) 
•&5S,(SP) 

(SP)+,34 
(SP)+.$TMP6 
•340, tTMP6 
$TMP6,-(SP) 
•66S,-(SP) 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
PUSH OLD PSU AN PCON STACK 

:: REPLACE OLD PC WITH NEW 
;; RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 



PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 



:THE FOLLOUING REPRESENTS THE EQUIVALENT OF "MOV PS,2(ADINT)' 



tLR 
MOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BIT 
BEQ 
BIT 
BNE 
JSR 
INC 
BIT 
BEQ 
MOV 
BIT 
BNE 
CLR 
BR 



-(SPi 
34. -(SP) 
•6^S,34 

2(SP),6(SP) 
•68S,tSP) 

(SP)+,34 
(SP)+.2(ADINT) 
TSTARt. Rl 
»BUFBEG,RO 
•-120, SIZE 
— OFFSET 
9CDC 
9CDA 
9C0S 
95UR 



•-120, 
SIZE, 
RO. 

•ido, 

•10. 
CDR^AD 
•4.aSUR 
CMEAO 

PC* 
3CDS 
•4000, 
BKGNO 

acoc. 

•4000, 
BKGNDl 
DERcNT 
BKGNO 



PAKSET 

9C0S 

DERCNT 

acos 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
••PUSH OLD PSU AN PCON STACK 

:;REPLACE OLD PC UITH NEW 
;; RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 

SET UP TABLE POINTER 
SET UP BUFFER POINTER 
SET UP "SIZE- 
SET UP COLUMN COUNT 
SET UP ADDRESS REG 
ENABLE INTERRUPTS 
CHECK FOR PACK MODE ONLY 
BRANCH IF NOT SET 
CHECK FOR IMAGE MODE ONLY 
BRANCH IF SET 
SET UP FOR PACKING MODE 
RFAO 

CHECK FOR DATA ERROR 

SAVE THE COLUMN COUNT 
CHECK FOR DATA ERROR 
BRANCH IF SET 
CLR COLUMN COUNT SAVER 



flfllNDEC - H 
DZCDB.Pll 




2M90 

2M% 
2M% 
8Mq7 
2498 

25C» 
2501 
2502 
2503 
250M 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2518 
2517 
2516 
2519 
2520 
2521 
2522 
2523 
252S 
2S2S 
252S 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2S3H 
253S 
2536 
2537 
2538 



012750 
012754 
012756 
012760 
012764 
012766 
012770 
012774 

012776 
013002 
013010 
013016 
013022 
013024 
013032 

013034 
013042 



13046 
13050 
13054 
13062 
13066 
13070 
13072 
13074 

C 13076 
13102 

C1310H 
13110 

C 13114 
13116 
13122 
13130 

)13l3e> 
1j140 

313144 
13146 



013150 
013154 
013156 
013164 



0ZC08-B 



lS4il 
104023 
032713 
001402 
000137 

032713 
001001 
000402 
000137 
005714 
001403 
0OSO37 
104034 

010037 
163737 
163737 
023715 
001404 
013737 
104033 

013737 
005777 

100411 
012137 
042737 
023720 
001043 
000402 
022021 
001040 
020137 
100402 
013701 
005237 
001415 
005237 
062737 
023727 
001341 
004737 
005721 
000735 

004737 
005721 
032777 
001002 



fWCYU 27(654) l-JUL-77 
D«Tfl RELIABILITY TEST 



08: 3S PAGE 49 



ElO 



SEQ 0121 



000002 
013640 
177477 

013510 

001210 



015320 
015314 
015314 
015320 

015320 



015314 
166172 



001200 
170000 
001200 



015330 

015326 
001250 

015334 
000002 
015334 

014710 



014710 
000004 



: INTERRUPT SERVICE ROUTINE WHICH RUNS DflTfl RELIABILITY TEST 
SRVC: - — ' 



015320 
015320 



001210 
001250 

001200 



IS: 



ISR: 



l!k: 
2S: 



3S: 



ISRNC: 
ISRLP: 



IS: 

ISRRT: 
IS: 



001212 
000120 



165752 



ISRBE: 
I5RNX: 



TSTB acos 

BNI IS 

ERROR +23 

BIT 12. 

BEQ ISk 

JflP PSR 



acos 



BIT 1177477, aCDS 

BNE IS 

BR 2S 

JHP ISRER 

TS7 aCDC 

BEQ 3S 

CLR STI1P4 

ERROR +34 

MOV RO. BUFEND 

SUB SliE, BUFEND 

SUB SIZE, BUFEND 

CMP BUFEND, aCDA 

BEQ ISRNC 

NOV BUFEND, STMP4 

ERROR +33 



MOV 
TST 

BMI 

MOV 

BIG 

CMP 

BNE 

BR 

CMP 

BNE 

CMP 

BMI 

MOV 

INC 

BEQ 

INC 

ADO 

CMP 

BNE 

JSR 

TST 

BR 

JSR 
TST 
BIT 
BNE 



SIZE. 
aCD06 



COUNT 



IS 

(R1)+.STMP0 

•170060.STMPO 

STMPO,(RO)+ 

ISRDE 

ISRRT 

(R0)+, (Rl)+ 
ISRDE 

Rl, TEND 
IS 

TSTART, Rl 
COUNT 
ISRBE 
CLCNT 
t2.STMP5 
Cl6nT, 1120 



ISRLP 
PC, 
(R1)+ 
ISRLP 



NXCRO 



PC, 
(R1)+ 

14. asuR 

ISRNXl 



gK^C^TRgl^LER READY 

iCONTROLLER READY NOT SET 
; CHECK f6r data PACK NODE 
BRANCH IF IMAGE MODE 
I JUMP TO PACK MODE RCITINE 

CHECK ALL BITS EXCEPT 6 AND 7 
BRANCH TO ERROR ROUTINE 
OTHERWISE. CONTINUE ON 
GO TO EkR6R ROUTINE 
CHECK COLUMN COUNT 
3RANCH IF OK 

CORRECT 'CDC CONTENTS FOR ERKOR REPORT 
; COLUMN COUNT REGISTER NOT D 



; CORRECT 'COA' CONTENTS FOR ERROR REPORT 



SET UP COLUMN COUNTER 
APE UE ON A CARD READER WITH 
ECO §14 INSTALLED' 
BRANCH IF YES 

TABLE VALUE 

4 BITS BEFORE COMPARISON 
INTO MEMORY' 



GE"^ THE 

STRIP OFF TOP . 

IS VALUE SAME AS DUMPED 
BRANCH IF NOT THE SAME 
OTHERWISE. CONTINUE ON 
TEST THE DATA 
BRANCH IF DATA ERROR 
CHECK FOR END OF TABLE 
BRANCH IF NO'i 

MOVE POINTER TO TOP OF TABLE 

CHECK FOR END OF BUFFER 

BRANCH IF BUFFER END 

KEEP TRACK OF COLUMNS 

UPDATE TABLE OFFSET FOR CARD «1 OF DECK 

CHECK FOR END OF CARD 

BRANCH IF NOT END OF CARD 

INC TO NEXT CARD 

•JPDATE TABLE POINTER FOR NEXT CARD 



NXCRD ;G0 TO NEXT CARD 



: CHECK FOR IMAGE MODE ONLY 
I BRANCH IF SET 



miHOEC - 11 - UZCDB-B fWCYU 27(faSH) l-JUL-77 08:3«3 
0ZC06.P11 DflTft RELIABILITY TEST 



2S3S 
2540 
2SM1 

f|:i! 

2544 
2S4S 
25% 
2S47 
2548 
2S4g 
2550 
2551 
2S52 
25SJ 
2554 
2555 
2556 
2557 
2556 
2559 
2S&0 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2566 
2569 
2570 

2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 



013166 004737 
013172 000137 




013176 
013202 
013204 
013206 
013212 

013216 
ni3220 
J 13224 
013232 
013236 
013240 
013242 
013244 
0132% 
013252 
013256 
013260 
013264 

013270 
013272 
013276 
013304 
013312 
Q13314 
013316 
013322 

3i§^§0 
Q13334 
013336 
013342 

013344 
013350 
013354 
0133^ 
013362 
013366 
013370 
01337M 
013400 
013M0M 
13410 
13416 
013420 
013424 



005737 
001102 
005740 
005237 
005777 

100411 
012137 
042737 
023720 
001051 
000402 
022021 
001046 
062701 
020137 
003402 
162701 
005777 

100412 
011137 
042737 
026037 
001014 
000403 
026011 
001010 

im 

003260 
062701 
000655 

162701 
020137 
003002 
062701 
020137 
001306 
013701 
063701 
0E>2701 
005037 
032777 
001026 
004737 
005777 



013430 100410 



014522 






JSR 


tH44Jb 




ISRNXl: 


JMP 






:DATO ERROR UPS 


men? 




Tconc • 
IbnUb: 


TCT 








DNC 








TCT 

1 a 1 










iDDUCC 






TCT 
131 








Bill 








nuv 


1 7nnnn 


nn 1 ann 

UU i u UU 




dio 


001200 






Wlr 
















DO 

on 






IS: 


l#Plr 








QNC 


nnnrmp 

uuuu iC 




Cs: 


MUU 


U13>3wU 






CMP 








Di r 


UUUC~U 






CI u 
3Ud 


i09( 3U 




I*. 
Js: 


TCT 

1 3 1 








BUI 


nn 1 ?nn 

UUi CUU 






nuv 


1 7nnnn 

1 1 UUUU 


nni pnn 
UUI cuu 




DTP 


000042 


001200 




PMD 
















QD 


UUU'U^C 




r a: 


PMP 

Lrlr 








DNC 

onCi 


UUUU~C 






cm 








PMP 








Q<^T 
Ou 1 


nnnpsn 






ODD 
HUU 








DO 

On 


nnnnu3 




5S: 


SUB 








cnp 








BCT 


UUUC lU 






ROD 


015330 




6S: 


CMP 








BNE 


015326 






MOV 


001212 






ROD 


000002 






ROD 


015332 






CLR 


020000 


165520 


ISRD2: 


BIT 








BNE 


014554 






JSR 


165610 






TST 








BMI 



FIO 



PRGE 50 



PC, PRKSET 
SRETRN 

DETECTED, OUTPUT 
CDCNT 
ISRD2 
-(RO) 
CDCNT 

acooB 

IS 

(R1)*.$TMP0 
il70060.$TMPn 
|TMPO,(ftO)+ 
6S 



SEQ ..22 



2S 

(R0)+, 

6S 

•42, 

Rl, 
3S 

•240. 

3CDD6 



(Rl) + 
Rl 

TEND 
Rl 



75 

(RD.STMPO 
«1706O0.JTMP0 
42(R0),tTMP0 
5$ 
4J 

42(R0). 
5S 
•42, 

ISRRT 
•240. 
ISRRT 



(Rl) 
Rl 

TSTRRT 
Rl 



•42, Rl 

Rl, TSTRRT 
6S 

•240, Rl 

Rl. TEND 

isftoi 

TSTflRT.Rl 
?TMP5,fti 
•2.R1 
CDCNT 

•20000, ilSUR 
ISRDE4 

PC. TYHERD 

acboB 

IS 



; SET UP FOR PACKING MODE 

; CALCULATE "SIZE" AND RETURN 

ERROR PRINTOUT 
: CHECK FOR FIRST CARD 
jBRAMCH IF NOT 
•SUB 2 FROM POINTER 

ARE UE ON A CARD READER UITH 

ECO ^14 INSTALLED' 

BRANCH IF YES 

GET THE TABLE VALUE 

STRIP OFF TOP 4 BITS BEFORE COMPARISON 

DOES VALUE MATCH THAT DUMPED INTO MEMORY? 

BRANCH IF NO 

OTHERWISE. CONTINUE ON 

TEST THE 6aTA 

BRANCH IF NOT THE SAME 

ADD THE MAGIC NUMBER 

CHECK FOR RAP AROUND 

BR.WCH IF NOT 

RAP AROUND 

ARE UE ON A CARD READER UITH 
ECO «14 INSTALLED' 
BRANCH IF YES 
GET THE TABLE VALUE 

STRIP OFF TOP 4 BITS BEFORE COMPARISON 

DOES VALUE MATCH FOR A DOUBLE' 

BRANCH IF NO 

OTHERWISE, CONTIi^UE ON 

CHECK FOR DOUBLE MATCH 

BRANCH IF NOT 

SUBTRACT THE MAGIC NUMBER 

CHECK FOR RAP AROUND 

BRANCH IF NOT 

RAP ,mm 

GO CHECK REST OF DATA 

; SUBTRACT MAGIC NUMBER 

CHECK FOR RAP AROUND 

BRANCH IF NOT 
;RAP AROUND 



OBTAIN THE 1ST TABLE ENTRY 

ADD TABLE OFFSET FOR CARD •! OF DECK 

GO AHEAD ONE TABLE POSITION FOR ERROR PEPORT 

RESET CARD COUNTER 

CK SW13 FOR INHIBIT PRINTOUT 

BRANCH IF SET 

TYPE HEADING. DECK. CDCNT. CLCNT 
ARE UE ON A 6aRD READER utTH 
ECO ^14 INSTALLED' 
BRANCH IF YES 



rWIfCEC - 11 - DZCDB-B 
DZCOB.PIJ 



25«J3 

25% 
25% 

97 



25'W 
2bOO 
2601 
2602 
2&03 



2607 
2606 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
261B 
261«3 
2620 
2621 
2622 
2623 
262M 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
26; 
26 
2640 
2641 
264," 
264: 
2644 
2645 
2646 



8 



013432 
013436 
13444 
13450 

1^454 
013456 
013457 
013460 
013464 
013466 
013470 
013471 
013472 
013474 
013500 
013502 
013504 



013510 
013512 
013514 

013516 
013522 
013524 
013530 
013532 
013534 

OK 
Oil 
013544 
013546 
013550 

013554 
013560 
013562 

013564 
013570 
013572 

013574 
013600 
013602 

013604 
013610 
013612 



014137 
042737 
013746 
000401 
014146 
104402 
006 
001 
104400 
014046 
10S402 
006 
001 
022021 
005777 
100001 
000000 
000137 



100402 
104026 
000447 

032713 
001414 
032713 
001002 
104035 
000413 

004737 
002002 
104057 
000432 
000137 

032713 
001401 
104060 

032713 
001401 
104061 

032713 
001401 
104062 

038713 
001401 
104C63 
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GiO 



SEQ 0123 



001200 
170000 
001200 



030545 



165436 



013076 



001200 



010000 
040000 

014650 

013034 
040000 

020000 

004000 

002000 



IS: 
2S: 



ISRDE4: 



IS: 



nov 

SIC 

nov 

BR 

nov 

TYPOS 

.BYTE 

.BYTE 

TYPE. 

MOV 

TYPOS 

.BYTE 

.BYTE 

CMP 

TST 

BPL 

HflLT 

JMP 



-(RD.STnPO 
• 170000, STrf»L 

$TnPO,-lsp) 

2S 

-(R1),-(SP) 

6 
1 

SPACE 

-(RO),-(SP) 



6 

1 

(R0)+, 

asuR 

IS 

ISRRT 



(Rl) + 



GET THE TABLE VALUE 

STRIP OFF TOP 4 aiTS BEFORE PRINTOUT 

PLACE VALUE OH oTACK FOR PRINTOUT 

GO TO PRINT OUT VALUE 

PUSH SHOULD BE DATA ONTO STACK 

SYSMAC ROUTINE 

FOR 

ERROR TYPEOUT 

PUSH MAS OATf' 
ONTO STACK 
FOR 

ERROR TYPEOUT 

RESET POINTERS 

CHECK FOR HALT ON ERROR 

BRANCH IF HALT ON ERROR NOT SET 

HALT ON ERROR SET 



: INTERRUPT DUE TO SOflE KIND OF ERROR 

THESE ERRORS ARE DISASTEROUS, THEREFORE THE DATA TEST IS RESTARTED 



iSRER: 



I5RE1: 



IS: 
2S: 

ISRE2: 
ISRE3: 
IS: 



BNI I3RE1 
ERROR ^26 
BR ISRST 



BIT 
BEQ 
BIT 
BNE 

ERROR ^35 
BR ISRE3 



110000, 9CDS 
ISRE2 

M40000, 9CDS 
IS 



JSR PC, LASTCD 
BGE 2S 
ERROR *57 
BR ISRST 
JMP ISRHC 

BIT 140000, aCDS 
BEQ ISRE3 
ERROR ^60 

BIT 120000, 9CDS 
BEQ IS 
ERROR ^61 

BIT i4000, aCDS 
BEG 2S 
ERROR ^62 

BIT 12000, 9C0S 
BEQ 3% 
ERROR -^63 



: BRANCH ON ERROR BIT 15 

; ERROR BIT 15 NOT SET 

; CHECK FOR OFF-LINE 

; CHECK FOR CARD READER ERROR 

; BRANCH .^pp.j^j^^ g^j ^ppp reaoer ^rrqr 

; CHECK FOR LAST CARD 
BRANCH IF BOTH CARD 

;CARD READER ERROR BUT NOT BOTH CARD 

;IF BOTH CARD - GO HERE! 

: CHECK FOR CARD READER ERROR 
BRANCH IF NOT 

;CARO READER ERROR BUT NOT OFF LINE 



;ENO OF FILE ERROR (M1200 ONLY) 



;DATA ERROR 



;DATA LATE ERROR 



DZC06.P11 



8 

01 

81 

C 

8 



2700 



36M0 
3644 

3b52 

tl2 



11 - DZCOB-B 



88!54? 

032713 

m 

00571M 
001M03 
005037 

ro8§? 

Ib3737 
023715 
001404 

?44o53 
013737 

m 

iS&SSa 

013701 
005237 

88^^ 

0&2737 
023727 

88i?P 

105721 
000751 



4 

3fc70 
367b 
3702 

r7?3 

3714 
3722 
3724 

3734 
3740 
3744 
3746 
3752 
3760 

3774 
3776 

40UD 
4004 
4006 
4014 
4016 
4024 

38M 

4042 
4046 



014052 
014056 
014060 
014062 
014066 



004737 
105721 
032777 
001014 
162737 
162737 

m\ 

042713 
000137 



005737 
001051 
105740 
005237 
122021 
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HiQ 



SEQ 012^ 



001000 



077000 



015306 
177475 
014256 



0^1210 

015320 
015314 
015320 



015330 

015326 
001250 

015334 



014710 

014710 

000010 

000240 
000120 

000002 
014436 

015332 

015332 





3S: 


DTT 












LHKOK 




Lift 

41: 


BIT 






one. 
cKKUK 




TCDCT ■ 


TMD 

JPIr 




rSR: 


QTT 

Ul 1 






DC.U 






J nr 




li: 


TCT 
131 






dtU 












tnnUn 




ci: 


nuv 


n 1 coon 




CI IQ 






y^rtr 






DbW 


nn i oi n 

001210 




nuv 






nn 1 3cn 
UUlcbU 




nuv 




DCDI D' 

rbnLr : 








one. 




DCDDT • 


l,nr 






QMT 






MOV 




IS: 


INC 






aro 
dtu 








nn 1 o 1 n 
UUlclU 




HUU 


□□□ISO 




l/PIr 






□nc 






TCP 






TCTD 
lb ID 












JSR 




P5RNX: 


TSTB 


165122 




BIT 






BNE 


015326 




SUB 


015330 




SUB 






SUB 






POD 






BIC 




PSRNXl : 


JMP 



11000, 
4S 



acDS 



10771 
ISR5 



QOO.aCDS ; CHECK OLl ERROR BITS ^ 
r^' -BRflNCH IF AT LEAST Ot€ 



NOM-EXISIANI MEMORY ERROR 
RrOR 



DATRST 

•177475, aCDS 
IS 

PSRER 

9CDC 

2S 

STHP4 

♦34 

RO. BUFEfC 
SI^E, BUFEND 
BUFEW. aCDA 
PSRNC 

BUFEND, STMP4 
+33 

SIZE, COUNT 
(R0)4, (Rl)+ 
PSRDE 

Rl, TEND 
IS 

TSTART, Rl 

COUNT 

PSRBE 

CLCNT 

•1,$TMP4 

CLCNT, 1120 

PSRLP 

PC, NXCRD 
(Rl) + 
PSRLP 



PC, 

(Rl)* 

•10. 

PSRNXl 

•160., 

•BO., 

•160. , 

cdcnt; 

SR^TRN 



NXCRD 
95UR 

TSTART 
TEND 
Rl 
Rl 

fiCOS 



;N0NE OF THE ERROR BITS SET 
; RESTART THE ENTIRE DATA TEST 

C«CK ALL BITS EXCEPT 1,6 AND 7 
BRANCH IF OK: 

OTHERWISE, GO TO REPORT ERROR 
CHECK COLUMN COUNT REG. 
BRANCH IF OK 

CORRECT 'CDC' CONTENTS FOR ERROR REPORT 



; CORRECT 'CDA' CONTENTS FOR ERROR REPORT 

SET UP COLUMN COUNTER 
TEST THE DATA 
BRANCH IF DATA ERROR 
CHECK FOR END OF TABLE 
BRANCH IF NOT 

MOVE POINTER TO TOP OF TABLE 

CHECK FOR END OF BUFFER 

BRANCH IF BUFFER END 

KEEP TRACKS COLUMNS 

UPDATE TABLE OFFSET FOR CARD «1 OF DECK 

CHECK FOR END OF CARD 

BRANCH IF NOT END OF CARD 

GO TO NEXT CARD 

UPDATE TABLE POINTER FOR NEXT CARD 



:G0 TO NEXT CARD 



;MOVE TABLE POINTER TO IMAGE TABLE 

: UPDATE TABLE POINTER 

COMPENSATE FOR BYTES 
:CLR PACKING MODE BIT 

CALCULATE "SIZE" AND READ MORE CARDS 



DATA ERROR WAS DETECTED, OUTPUT ERROR PRINTOUT 



^'SRDE: TST 
BNE 

PSRDl: TSTB 
INC 
CMPB 



CDCNT 
PSRD2 
-(RO) 
CDCNT 
(R0)+, 



;SUB 1 FROM POINTER 
(RlJ* :TEST THE DATA 



fIfllfCeC - 11 - OZCOB-B 

ozcDe.Pii 



2701 
2702 

kf 

2708 

27ld 
2711 
2712 
2713 
27m 
271S 
271b 
2717 
2718 

27iq 

2720 
2721 
2722 
2723 
2724 
2725 
272b 
2727 
2728 
272*} 
2730 
2731 
2732 
2733 
2734 
2735 
273b 
2737 
2738 
273S 
2740 
2741 
2742 
2"43 
2744 
2745 
274b 
2747 
2748 
274S 
2750 
2751 
2752 
2753 
2754 




4070 
4072 

4'"' 
4104 
4110 
4114 
411b 

4130 
4134 



014136 
014142 
01414b 
014150 
014154 
014160 
014162 
0141bb 
014172 
Q1417b 
014202 
014210 
014212 
01421b 
014222 
014224 
01422b 
014227 
014230 
014234 
01423b 
014240 
014241 
014242 
014244 
014250 
014252 
014254 



01425b 
0142b0 
014262 

014264 
014270 
014272 
014276 
014300 
014302 
014310 



001031 
062701 
7 



162701 

iSioii 

162701 
7 



062701 
000674 

162701 
020137 
003002 
062701 
020137 
001337 
013701 
063701 
062701 
005037 
032777 
001015 
004737 
104400 
114146 
104402 
003 
000 
104400 
114046 
104402 
003 
000 
122021 
00577' 
100001 
000000 
00062K 



100402 
104026 
000463 

032713 
001414 
032713 
001001 
104065 
032777 
OOIOQl 
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IIG 



000021 
015330 

000120 
000021 

000021 
015326 

000120 



000021 
015326 

000120 
015330 

01532b 
00*212 
000001 
015332 
020000 

014554 
030545 



030542 



164666 



004000 
000002 



2S: 



3S: 



IS: 



BTC 

ADO 

C«P 

BLE 

SUB 

CMPB 

BNE 

SUB 

CflP 

BGT 

POO 

BR 



SUB 
CMP 
BGT 
ADD 
CMP 
BNE 
MOV 
ADO 
ADD 
CLR 

164726 PSR02: BIT 
BNE 
JSR 
TYPE, 
MOVB 
TYPOS 
.BYTE 
.BYTE 
TYPE, 

novB 

TYPOS 
.BYTE 
.BYTE 
CMPB 

PSRDE3: TST 
BPL 
HALT 

IS: BR 



IS 
•21, 

•120. 

21(R0), 

3S 

121, 

piftRi 
•120. 
PSRRT 



Rl 

TEND 

Rl 

(Rl) 

Rl 

TSTART 
Rl 



•21, Rl 

Rl , TSTART 

1$ 

•120 Rl 

Rl. TEND 

pstoi 

TSTART^Rl 
STMP5,Al 
• l.Rl 
CDCNT 

•20000, 3SUR 
PSRDE3 

pc. tyhead 
spAce 

-(R1),-(SP) 

3 
0 

SPACE-3 
-(RO),-(SP) 



3 
0 

(R0)+, 

35UR 

IS 

PSRRT 



(Rn + 



SEQ 012 J 



BRANCH IF NOT THE SAME 
ADO TK NAGIC NUMBER 

RAP AROUND 

CHECK FOR DOUBLE MATCH 

BRANCH IF NOT 

SUBTRACT THE MAGIC NUMBER 

CHECK FOR RAP AROUND 

BWWCH IF NOT 

RAP AROUND 

GO CHECK REST OF DATA 

: SUBTRACT MAGIC NUMBER 
: CHECK FOR RAP AROUND 
BRANCH IF NOT 
;RAP AROUND 



OBTAIN THE 1ST TABLE ENTRY 

ADD TABLE OFFSET FOR CARD «1 OF DECK 

GO AHEAD ONE TABLE POSITION FOR ERROR REPORT 

RESET CARD COUNTER 

CK SW13 FOR INHIBIT PRINTOUT 

BRANCH IF SET 

TYPE HEADING, DECK, CDCNT, CLCNT 

:PUSH SHOULD BE DATA 
ONTO STACK 
;FOR 

; ERROR TYPEOUT 

PUSH MAS DATA 
ONTO STACK 
FOR 

ERROR TYPEOUT 

RESET POINTERS 

CHECK FOR HALT ON ERROR 

BRANCH IF HALT ON ERROR NOT SET 

HALT ON ERROR SET 



: INTERRUPT DUE TO SOME KINO OF ERROR ,^ 
(iSRER: BMI PSREl ;BRANCH ON ERROR BIT 15 

ERROR +26 : ERROR BIT 15 NOT SET 

BR PSRST 



PSREl i 



BIT 
BEQ 
BIT 
BNE 



000020 164626 IS: 



ERROR -(-65 



•4000, 
PSRE2 

IS 



BIT 
BNE 



•20, 
2f 



acos 
acDS 



asuR 



; BRANCH IF NOT 



; BRANCH IF BINARY DECK 



JIO 



HfllNOEC - 

ozcoe.pu 



2755 
275b 



57gi 
2762 
2763 
2764 
2765 
2766 

P67 
68 
69 

2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
27% 
2797 
27«98 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2B0& 
2807 
2808 



11 - 02C0e-B 



4312 
4314 




014342 
014346 
014350 

814354 
143S6 

014362 
014366 
014370 

014372 
Q14376 
014400 

014402 
Q14406 
014410 

014412 
014'Ub 
014420 
014422 
014426 
014430 
014432 



014436 
014444 
014446 
014454 
0144% 
01446S 
014466 
014474 
014476 
014502 
01450M 
014510 
014514 
014516 
014520 



QQ4737 
002402 
000137 
104057 
000137 

032713 
001401 
104060 

032713 
001401 
104061 

032713 
001401 
104063 

032713 
001401 
104064 
032713 
001001 
104037 
000137 



063737 
100404 
012737 
000770 
n32737 
001004 
012737 
000760 
004737 
003371 
013714 
012700 
010015 
005213 
000002 
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5eQ 0126 



177660 
010000 

040000 



014650 
013714 
015306 
040000 

020000 

0U2000 

001000 
077000 
013722 



015316 

177660 

OCIOOO 

000120 

01t650 

015314 
0M5442 



001250 



2S: 

P5Rl2: 



ERROR *bf} 



MOV 



•-120 



BIT 
BNE 



COUMT 

acDs 



ERROR +35 



140000, aCDS 
IS 



IS: 
2S: 

PSRE3: 



BR 

JSR 
BLT 
JF1P 
ERROR +57 



PSRE4 



PC, 
2S 

PSRNC 



L()STCO 



JMP 



DflTRST 



BIT 140000, acos 

BEQ PSRE4 
ERROR +60 



PSRE4: BIT 120000, aCOS 
BEQ IS 
ERROR +61 



;ONLY READ OfC CARD 
; CHECK FOR OFF-LINE 

; CHECK FOR CRRO READER ERROR 
; BRANCH IF SET 

; OFF-LINE BUT NOT CARD READER ERROR 

: CHECK FOR LAST CARD 
BRANCH IF NOT 
: BRANCH IF BOTH CARD 

;CARO READER ERROR BUT NOT BOTH CARD 
; RESTART THE ENTIRE TEST 

; CHECK FOR CARD READER ERROR 
BRANCH IF NOT 

;CARO READER ERROR BUT NOT OFF LINE 



;END OF FILE ERROR (ril200 ONLY) 



:s: 

2b: 
3S: 

PSRST: 



BIT t2000, 
BEQ 2S 
ERROR +63 



BIT 
BEQ 



•1000, 
3$ 



acos 



acos 



ERROR +64 
BIT 1077000,3005 
BNE PSRST 



ERROR +37 



JMP 



PSRLP 



;DATA LATE ERROR 



jNON-EXISTANT MEMORY ERROR 
; CHECK ALL ERROR BITS 
BRANCH IF AT LEAST ONE 

jNONE OF THE ERROR BITS SET 
;G0 CHECK THE DATA 



015314 
015316 
015314 
015316 



; RETURN PORTION OF INTERRUPT SERVICE ROUTINE 
CALCULATES A NEW "SIZE" (NUMBER OF COLUMNS TO BE READ) 
SETS UP THE CARD READER BUFFERS. AND ISSUES THE READ COMMAND 
•THEN DOES AN RTI TO THE BACKGROUND ROUTINE 
SrETRN: add OFFSET, SIZE 

BMI SRETRl 

MOV 1-120, OFFSET 

BR SRETRfl 
SRETRl: BIT «Q01000,SiZE 

BNE SRETR4 
SRETR3: MOV ei20. OFFSET 

BR SRETAn 
SRETR4: JSR PC. LAS! CO 

BGT SRETR3 

MOV SIZE. 3CDC 

MOV t8UF6EG,R0 

MOV RO. aCDA 

INC acos 

RTI 



CHECK FOR MORE THAN 80 CARDS 

BRANCH IF GPZATER 

SET UP COLMi COUNT 

RESET TABLE POINTER 

SET UP ADDRISS REG 

READ 



rwIMOEC - 11 

ozcoe.Pu 
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280S 



28 



?854 
2855 
285£> 
2857 
2858 
2859 
28b0 
28b 1 
28b2 



8 



014bS0 

ombSb 
ai4b7o 

Q14b7b 
014700 
01470b 



014710 
014714 
014720 
014724 
014732 
014734 
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KIO 



SEQ 0127 



014522 

014542 
01454b 
014552 



01^1554 
0I45fc0 
014Sb2 
0145bb 
014572 
014574 
01457b 
0l4b02 

mi 

014bl4 
014b20 
014524 
014b30 
014b34 
Q14b3b 
Ql4b42 
Ol4b4b 



Ob2737 

lb3701 
052713 
000207 



005737 
001004 
005237 
104400 
104400 
000000 
104400 
005237 
01374b 
104404 
005337 
104400 
005237 
01374b 
104404 
005337 
104400 
000207 



013737 
013737 
005237 
0b2737 
100772 
023727 
000207 



005037 
005037 
005237 
023727 
002001 
000207 



000240 01532b 
000120 015330 
000240 
015332 
0OOG02 



0012b0 

0012b0 
033053 



030545 
015332 
015332 

015332 
030540 
01S334 
015334 

015334 
030543 



: SUBROUTINE 
PflKSET: HOD 

flOD 
SUB 
BIS 
RTS 



:5UBR0UTIf€ TO 
tYHEflO: TST 
BNE 
INC 
TYPE, 
NOHEflD: TYPE 
DECK: DUIWY 
TYPE, 
INC 
MOV 
TYPOS 
DEC 
TYPE, 
INC 
NOV 
TYPOS 
DEC 
TYPE, 
RTS 



TO SET PftCKING MODE ftND HOVE THE POINTERS FOR THE DftTfl. 
•IbO.. TSTflRT ; MOVE TABLE POINTER TO PACKED TftBLE 



tBO. 
tlbO., 

CDCNT, 

•2, 

PC 



TEND 
Rl 
Rl 

aCDS 



TYPE HEADING, 
ERFLG 
NOHEAD 
ERFLG 
MSG13 



SPACE 
CDCNT 

CDCNT, -(SP) 

CDCNT 

SPACE-5 

CLCNT 

CLCNT,-(SP) 

CLCNT 

SPACE-2 

PC 



; UPDATE TABLE POINTER 
; COMPENSATE FOR BYTES 
•SET PACKING MODE BIT 

TYPE OF DECK. CARD COUNT. AND COLUMN COUNT 
: CHECK FOft FIRST ERROft 
BRANCH IF NOT 
;SET FLAG 

TYPE HEADING FOR DATA ERRORS 
OUTPUT TYPE OF DECK 
•POINTER TO DECK TITLE 

.•ADJUST CADR COUNT 

; READJUST CAOR COUNT 
; ADJUST COLUMN COUNT 



; READJUST COLUMN COUNT 



015314 
015332 
01S324 
000120 

015324 



015334 
001212 
015332 
015332 



015322 
015324 

015322 

000120 



SUBROUTINE TO CHECK FOR LAST CARD 



tflSTCD 
LSTCDl; 



MOV 
MOV 
INC 
ADO 
BMI 
CMP 
RTS 



SIZE. 
CDCNt, 
TENP2 
il20. 
LSTCOl 
TEHP2, 
PC 



TEMPI 
TEMP2 

TEMPI 

•80. 



SUBROUTINE TO KEEP TRACK OF CARDS 



AXCRD: 



000120 



CLR 
CLR 
INC 
CMP 
BGE 
RTS 



CLCNT 
$THP5 
CDCNT 
CDCNT, 
JEOP 
PC 



; RESET COLUMN COUNT 

:KEEP TRACK OF CARDS 
•120 I CHECK FOR BOTH CARD 

; RETURN 



.SBTTL END OF PASS ROUTINE 
;*INCREMENT THE PASS NUMBER (JPASS) 

|»TYPE -END PASS •XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER) 



nfllrOEC - 11 - bZCOB-B MACYll 27 IbSH) 
OZCOB.PU ENO Of PASS ROUTIME 



l-JUL-77 08:39 P«GE 5£> 



LIO 




26eS 01SQ30 




005726 



005037 
005237 
042737 

S^I 

003032 
012737 
000001 
0m7b6 
104400 
0137% 
104404 
104400 

013700 
001415 

m 

01274& 
000441 



01371 
00141- . 

m 

000240 

m 



00504& 

m 

104400 
0^726 

04271b 
032777 
ni005 
005137 
100402 
05271& 
01274b 
000002 



015150 
001100 

0151b5 

000042 

01504b 

000042 



;IIF SUi2=l INHIBIT TRftCE TRftP 
»IF THERES A HONITOR GO TO IT 
;»IF THERE ISN'T JUMP TO HOOKl 



SEOP: 



001102 
001220 
001100 

100000 001100 



TST 

CHP 

CLR 

CLR 

INC 

BIC 

DEC 

.UORD 

BGT 

NOV 

.UORO 

SEOPCT 

TYPE 

NOV 

TYPOS 

TYPE 

NOV 

BEQ 

RESET 

CLR 

NOV 

BR 



NOV 
BEQ 
RESET 
SENOAO: JSR 
NOP 



lEOPCT: 



SENOCT: 



SGET42: 



Q00Q34 

015074 000034 



000002 
000034 
000020 

OlOOOQ IbHOlb 
01514b 

000020 
015142 



SOOAGN: 



If: 



NOP 
NOP 

CLR 
NOV 
NOV 
TRfiP 
TST 
NOV 
NOV 
BIC 
BIT 
BNE 
CON 
BNI 
BIS 

2S: NOV 
IRTRN: RTI 



(SP) + 

(SP)+.(SP)+ 
ITSTN^I 
STINES 
SPASS 

1100000, SPA55 

(PC) + 
1 

SOOAGN 

CPC)+,a(PC)+ 

1 

.SENDNG 
4PftSS,-(SP) 

,$ENULL 

8I42.R0 
SOOR&N 

-(SPi 

•«END«),-(SP) 
IRTRN 



3i42.R0 
SOOftftN 

PC,(RO) 



-(SP) 

3134. -(SP) 
•lS,il34 

(SP) + 

{SP)+,2(SP) 
(SP)+I3I34 
•20. (§P) 
•Bltl2,aSUR 
2$ 

ITBIT 
2S 

•20.(SPJ 
•SLOOP, -(SP) 



; CORRECT STACK POINTER TO REPLACE 'RTS* 
: CORRECT STACK POINTER TO REPLACE 'RTT 

;ZERO Jk. TEST NUH8ER 

-ZERO THE NUTBER OF ITERATIONS 

; INCREMENT THE PASS NUNBER 
DON'T ALLOW A NEG. NUNBER 

•LOOP' 

;YES 

I RESTORE COUNTER 



TYPE "END PASS •" 

SAVE IPASS FOR TYPEOUT 

GO TYPE— OECIHAL ASCII UITH SIGN 

TYPE A NULL CHARACTER 

GET HOHITOR ADDRESS 

BRANCH IF NO NONITOR 

NONITOR.CLEAR WORLD 

INSURE tHE "T- BIT IS CLEAR 

SETUP FOR AN RTI OR RTT 

GO DO AN RTI OR RTT TO LOAD THE PSW 

UITH A CLEARED "T" BIT 

GET NONITOR ADDRESS 

BRANCH IF NO NONITOR 

CLEAR THE kiORLO 

GO TO MONITOR 

SAVE ROOM 

FOR 

ACTll 

RESERVE A STACK LOC. FOR THE PS 
SETUP THE TRAP VECTOR 
TO GET THE PS 

CLEAN OFF THE USED PC 
SAVE OFF THE PS 
RESTORE TRAP VECTOR 
CLEAR THE "T" BIT 
RUN WITH TRACE TRAP' 
BR IF NO 

IS IT TIME FOR TRACE TRAP 

BR IF NO 

SET TRACE TRAP 

JUMP TO START OF TEST 

RETURN—THIS IS CHANGED TO 

AN -RTT" IF "RTT" IS LEGAL 



rttlNDEC - 11 - DZCOe-B riACril 27(&5M) 
OZCOe.PU EfC OF PASS ROUTINE 



5142 
5142 




000137 015170 




2430 
2S31 
2S32 

2«J33 
2S3M 
»935 

2<J" 
2<3 



015204 
015210 
015212 
015214 
01521& 



m 8 



2<J40 
J4J 



015220 

152|'* 
1522& 



2S43 
2944 

irsi 

2947 
2948 

2J49 
2950 
2951 

2954 
2955 
2956 
2957 
2958 
2959 
2%0 
2%' 
29b2 
2%3 
29b4 
2%5 
29(>6 
2967 
2966 
2%9 
2970 



015236 



8 



15240 
1S44 
C1S246 



015250 
015254 
015256 



032777 
001402 
OOQPOO 
000427 

032713 
001424 
005713 
100401 
104026 

032713 

?8i8Si 
88f54? 

104015 

SiSoil 

000776 

032713 
001001 
104016 



047105 020104 

051523 IJ21"40 

377 000 

000040 163740 



010000 

040000 
023471 
015250 
000010 



015260 022626 



0'5262 005137 001254 

015266 032777 000100 163642 

015274 001402 

015276 0001J7 002534 

015302 000137 012314 

015306 022626 

015310 000137 012314 

015314 1/7660 

015316 177660 

Q15320 000000 

015322 OOUOOO 

015324 000000 

015326 000000 
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MIQ 



3EQ 0129 



ILOOP: 
flBIT: 



0 



aiHOOKl 



; ; INSTRUCTION 
;; RETURN 



.ftSCIZ <lS><12>/ErD PftSS •/ 



lENULL: 
HOOKl: 

ONLINE: 
IS: 



2S: 



3S: 
4$: 



.BYTE -1,-1,0 

BIT i40.9SUR 

BEQ ONLINE 
HALT 

BR DECKCK 

BIT tlOOOO, 9CDS 

BEO OECKCK 

TST aCDS 

BMI IS 

ERROR <f26 

BIT 140000, acDS 

BNE 2S 

ERROR +35 



;^T 1^23471,3005 
ERROR +15 



;;NULL CHftRACTER STRING 

iCHECK 9SUR FOR H«LT RT END OF DECK 
; CONTINUE IF NOT SET 
•Etc OF DECK, Skis SET 

: CHECK FOR OFF-LINE 
BRANCH IF NOT 
CHECK FOR ERROR (BIT 15) 
BRANCH IF SET OK 

; ERROR BIT 15 NOT SET 

: CHECK FOR CARD READER ERROR 
BRANCH IF SET OK 

; OFF-LINE NOT DUE TO CARD READER ERROR 



; CHECK FOR EXTRA BITS SET 
•BRANCH IF 



MOV 

WAIT 

BR 



•ONINT, 3A0INT 



4S 



ONINT: 



BIT 110, 
BNE IS 
ERtlOR +36 



SCOS 



1$: CMP (SP)+, (SP)+ 
;UHEN CONTINUING FROM ONE DECK 
jOF TESTING TO BE PERFORMED 
6ECKCK: COM TRFLG 

BIT 1100, 3SUR 

BEQ IS 

IMP RESTRT 
1$: JMP OATST 



DATRST: CMP 
JMP 

SIZE: -120 

OFFSET: -120 

BUFENO: 0 

TEMPI : 0 

TEMP2: 0 

TSTART: 0 



(SP)+, (SP)+ 
OATST 



m 

; EXTRA ERROR BITS SET 

:SET UP INTERRUPT VECTOR 
UAIT FOR AN INTERRUPT 
;MAIT ON TRACE TRAPS 

; CHECK FOR TRANSITION TO ON LINE 
; BRANCH IF SET OK 

; INTERRUPT BY OTHER THAN BIT 3 SETTING 

: RESTORE THE STACK 
t6 ANOTHER, CHECK SU6 FOR TYPE 

; TOGGLE TRACE FLAG 
iCHECK SW6 
: BRANCH IF NOT SET 

I RERUN COMBINED INSTRUCTION AND DATA TEST 

; RESTORE THE STACK 
•RESTART DATA TEST 



; STARTING ADDRESS OF DATA TABLE 



fttlNOeC 11 - DZCOB-B nflCYll 27(654) 

DZCOe.Pll END OF PASS ROUTINE 

01S3X 000000 

015332 000000 

2973 01533M 000000 

2<)7M 0153% 000000 

2975 0153M0 000000 
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NiO 



TEND: 


0 


CDCNT: 


0 


CLCNT: 


0 


PTOFF: 


0 


OERCNT: 


0 



SEQ 0130 



END ADDRESS OF DATA TPBLE 
riUnBER OF CPRD BEING RtAD 
NUMBER OF COLUMN BEING CHECKED 
OFFSET TO POINTER FOR DATA PRINTOUT 
OfiTfi ERROR COLUMN COUNT 



•ttlNCCC - 11 - D2C0e-B MflCYll 27(b54) l-JUL-77 08 
DZCOe.Pll ERROR ♦! FUNCTION TESTS 



300M 
3005 
300b 
3007 
3008 
300S 
3010 
3011 
3012 
3013 
3014 
3015 
301b 
3017 
301B 
3019 
3020 
3021 
3022 
3023 
302M 
3025 
302b 
3027 
3028 
302*^ 



0153M2 

015350 

0l53b2 

015HOS 
015412 
015420 
01542b 
015434 
015442 
015450 
015454 

8{l4^ 

015512 
015514 

oisix 

01553b 
015542 
015550 
015554 
0155bO 
OlSSbb 
01S572 

Qisr.-^ 

0l5b02 
OlSblO 
015bl2 
OlSblb 
015b22 
015b2b 

0l5b32 
015b3b 
015842 
015b42 
0l5b% 
OlSbSO 
015b54 
OlSbSb 
015bb2 
015b70 



02270b 
012737 

i\m 

012737 
012737 
012737 
012737 
012737 
013737 
005037 
012737 
012737 
012737 
012737 
0050% 
01274b 
00000b 
012737 
000402 
Ob270b 
012737 
005037 
012737 
01374b 
01374b 
012737 
005777 
000407 
012737 
012737 
022b2b 
012b37 
012b37 
1044^^ 
I044ua 

005037 
000137 

01270£. 
00502b 
02270b 
001374 
01270b 
012737 
012737 



001100 

00112b 

001100 
02b32b 

^ 

000340 
027J74 
000340 
0274X 
000340 
014774 
001220 
015140 
000340 
000002 
015524 

015514 



iSETUP FOR 
^R1200: 



000020 
000022 
000030 
000032 
000034 
00003b 
000024 
00002b 
0147bb 

000014 
00001b 
015140 
000010 



00000b 015140 b4S: 



000010 
000012 
01514b 
015542 
000004 
00000b 
015574 
lb3344 

00017b 
000174 

OOOQOb 
000004 
030550 
031333 

0012bb 
01bl34 

001100 

00112b 

001100 
02b32b 
000340 



000010 
00110b 

000004 



00113b 
001140 



b5S: 
bbS: 



b7S: 



bSS: 



ERCOU: 



000020 
000022 



MOV 
CLR 
CNP 
BNE 
NOV 

nov 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

CLR 

MOV 

MOV 

MOV 

MOV 

CLR 

NOV 

RTT 

MOV 

BR 

ADD 

MOV 

CLR 

MOV 

MOV 

MOV 

NOV 

TST 

BR 

MOV 

MOV 

CMP 

MOV 

MOV 

TYPE 

TYPE 

CLR 
JNP 

MOV 
CLR 
CMP 
BNE 
MOV 
MOV 
MOV 



Bll 

PAGE 5S 



SCO 0131 



OR FUNCTION TEST 



FIRST LOCftTION TO BE CLEARED 
CLEAR MEMORY LOCATION 
DONE' 

loop back if no 
setup the stack pointer 
:iot vector for scope routine 
Level ? 

:ent vector for error routine 

tEVEL 7 

-..™^..-.r ,lTRAP VECTOR FOR TRAP CALLS 

•3H0jlTRAPVEC*2;LfeVEL 7 _ ^ 

•SpStoN^ajpHRVfC ;^P0gR^FAI^ VECTOR 

SETUP END-OF-PROGRAM COUNTER 
INITIALIZE NUMBER OF ITERATIONS 

•set "t- bit vector to srtrn 
[level 7 

§et srtrn to a rti 

TRv TO DO A RTT 
DUMMY PS 
AND PC 
TRY THE RTT 

RTT IS LFGAL~SET SRTRN TO A RTT 



•SCMTAG.Rb ; 
(Rb)^ i 
•SBDOAT.Rb 

•STACK.SP I 
•SSC0PE.3tI0TVEC 



•3H0.ai^WVEC42 

IENDfcT,SEOPCT 

STINES 

•SRTRN .atTBITVEC 
•340,3fcTBITVEC+2 
•RTI SRTRN 
•b5S a^RESVEC 

-(SP5 

«b4S,-(SP) 



•RTT, SRTRN 
bbS 

•RE§VEC42,J»RE5V^6' 
STBIT ; 
•..SLPAOR ; 
a^^,-(SP) ; 
a^b.-CSP) 
•b7j,4 

bBS ; 
•SUREG.5MR ; 
•OISPR^G.DISPLAY 
(SP)+,(SP)+ ; 
(SP)+,Sttb ; 
(SP)+!a^4 
CRLF-5 
N1200E 



RTT ILLEGAL—CLEAN OFF THE STACK 

::RESTORE TRAP CATCHER 
Cf-^AR -T- BIT SWITCH 
INITIALIZE THE LOOP ADDRESS FOR SCOPE 
SAVE ERROR VECTOR 

SET UP TIMt OUT VECTOR 

try to reference hardware sur 
branch if no timeout trap occurs 
point to software swr 
ipoint to software display reg 
Restore stack 
restore error vector 



CO 1000 
ER12CD 



;MOVE MESSAGE UP ON TTY 
INDICATE -ENTERING ERROR FUNCTION 
TESTING OF AN M-1200" 
CARD READER IS M-1200 



•SCMTAG,Rb ; 
(Rb)+ ; 
•SBODAT.Rb ; 

•STACK.SP I 
•SSCOPE.a^IOTVEC 
«340,a^lOTVEC+2 ; 



FIRST LOCATION TO BE CLEARED 
CLEAR MEMORY LOCATION 
DONE' 

loop back if no 
setup the stack pointer 
;iot vector for scope routine 
Level 7 



Cll 



DZCOB.Pll 



30X 
3031 
3032 
X33 
303S 
3035 
303b 
3037 
3038 
3039 
3OH0 
30M1 
3042 
30H3 
30HM 
30HS 
30Sb 
30M7 
30M8 
304*3 
30S0 
7051 

30§ 
3054 
3055 
305£> 
3057 
3058 
30S'9 
3060 
30£)i 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3068 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
30C1 
3082 
3083 



015676 
Q15704 
(315712 
015720 
015726 
015734 
015742 
015750 
015754 
015762 
015770 
015776 
016004 
016006 
016012 
016014 
016022 
016024 
016030 

O1S4I 
016050 
016054 
016060 
016066 
016072 
016074 
016102 
016110 
016112 
016116 
016122 

016126 
016134 

016142 
016146 



DZCD8-8 



012737 
012737 
012737 
012737 
012737 
012737 
013737 
005037 
012737 
012737 
012737 
012737 
0050% 
0127% 
Q00Q06 
012737 
000402 
062706 
012737 
9P5Q37 
012737 
0137% 
0137% 
01273^ 
005777 
OU0407 
012737 
012737 
022626 
012637 
012637 
104400 

012737 
012737 

004737 
104400 



016152 000004 



016154 
016160 
016164 
016170 



004737 
104400 
104400 
104400 
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ERROR +1 FUMCTION TESTS 



SEO 0132 



026152 
000340 
027374 
000340 
027430 
0003HO 
014774 
001220 
015140 
000340 
000002 
016024 

016014 

000006 

000010 
000012 
015146 
016042 
000004 
000006 
016074 
163044 

000176 
000174 

000006 
000004 
031401 

177777 
016146 

045366 
030556 



025744 
030353 
035645 
033605 



UUUUJU 




nuv 


ODUlUc 




nuv 


UUUUJ4 




nuv 


UUUUJb 




nuv 


ULaJUcM 




nuv 


UU0uc6 




•tnv/ 
nuv 






nuv 






n 0 


nmvt 1 u 
LAJUU14 




nuv 


(Win 1 c 




nuv 


ni CI un 




nuv 


nnnn t n 




nuv 












nuv 






PTT 






Mnu 
nuv 






no 

on 




C.CC> 

bbi: 


nUU 


nnnn 1 n 

UUUUiU 


DOS. 


nuv 






ULn 






Mnu 
nuv 






nuv 






Mnu 

nuv 


000004 




tlOV 






TST 






On 


nn 1 1 '?f> 




MOV 


001140 




MOV 






CMP 




68S: 


MOV 






MOV 






TYPE, 


001266 




MOV 


027576 


ER12CD: 


MOV 



JSR 

ERCD12: TYPE, 



:emt vector for error routine 
Cevel 7 

.,,r«, .^v , iTRfV VECTOR FOR TRAP CfiLLS 

•340^aiTR«PVEC+2;LEVa 7 
lSPWOr{.StPURVEC ; .-POWER FAILURE VECTOR 

Level 



•SERROR.SIEHTVEC 

•34o.aieifrvEc*2 , 

rtTRftP.aiTRflPVEC 



l34u.9iraRVEC42 

$&€6t,seopct 

STIfCS 

•SRTRH.atTBITVEC 
•340,alTBITVEC+2 
•RTI.IRTRN 
•65S aiRESVEC 

-(SP) 

•64S -(SP) 

•RTT,IRTRN 
66S 

•RE§VEC^2,aiRESV^( 



STBIT 
•..SLPftOR 
at4,-(SP) 
ai6.-(5P) 
•67*, 4 

asuR 

68S 

•SURE6.SUR 
•DISPRiG.DISPLAY 
(SP)+,(S^') + 
(SP)i,at6 

(SP)+.at4 
niooo^ 

9177777, CDIOOO 
•ERC012 1 RETURN 

PC, SETUP 



7 

setup end-of-pro(awi counter 
initialize liumber of iterations 
;set -t- bit vector to srtr'i 
Ilevel 7 

set srtrn to a rti 
try to do a rtt 

DUMMY PS 
AND PC 
TRY THE RTT 

RTT IS LE(ML— SET SRTRN TO A RTT 

RTT ILLEGAL— CLEAN OFF THE STACK 
RESTORE TRAP CATCHER 



;;Cttfm -T" BIT SWITCH 

initialize the loop address for scope 
••save error vector 

set up time out vector 
try to reference harowflre swr 
bkanch if no timeout trap occurs 
point to software swr 
ipoint to software display reg 
Restore stack 
restore error vector 

: indicate "entering error function 
testing of an m1000/m200" 
card reader is m1000/m200 
save return point for this 
section for power failure return 
initialize registers 



STteS ;TYPE MAInDEC TITLE & RCV. LEVEL 



«TEST 33 TEST DATA LATE 

*»####«»*##»#»»»»»f««»»#««»*< »»»»«»»»«»««»«»«»»»««»#»»»*»»«*»*« 

tST33: SCOPE 

:HALT SHOULD CAUSE DATA LATE ERROR (BIT 10) 
SHOULD SET ERROR (BIT 15) 

' Tcn no TWTT 



JSR 
TYPE, 
TYPE, 
TYPE 



PC, 
CRtF 
MSG32 
MSG22 



INIl 



016174 104400 030550 



TYPE. CRLF-3 



INITIALIZE STATUS REGISTER 

TST33 DATA LATE TEST 

"WHEN PRINTING STOPS PUT HALT AND 

SINGuE BUS CYCLE DOWN. AND HIT 'CONTINUE' ON THE 

CONSOLE UNTIL ONE CARD IS READ 

THEN PUT UP THE TWO SWITCHES AND HIT 

•CONTINUE' ON THE CONSOLE 

MOVE MESSAGE UP ON TTY 



nfiiMoec - 11 

DZCDB.PU 

308H Q1&20C 
3085 016204 

01&214 



DZCOe-B fIflCYlJ 27(b54) 
T33 TEST DflTfl LflTE 
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Dll 



SEQ 0133 



30S1 



309H 
30% 



30<38 
3099 
3100 
3101 
3102 
3103 
3104 
310S 
3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 
3114 
3115 
311b 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
312b 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
313b 
3137 



016222 
Olb224 
0 J 6226 

016230 
016234 
016236 

016240 
016244 
016246 

016250 



016252 
016256 
016262 
016266 
016272 
016276 
0x6300 
016304 
016306 

016310 
016312 
016314 

0i6316 

016326 
016332 
016336 
016342 

016344 
016350 
016352 



012714 
012715 

m 

106713 

005713 
001001 
104026 

032713 
OOlCOl 
104042 

032713 
001401 
104004 



016250 000004 



004737 
104400 
104400 
104400 
104400 
000000 
032713 
001001 
104043 

005713 
100401 
104026 

031327 
001401 
104015 

104400 
104400 
104400 
000000 

032713 
001001 
104036 



177701 
045442 



002000 
075577 



025744 
035675 
031706 
031632 
030550 

010000 



067577 



031576 
031632 
030550 



000010 



•-77. aCDC 

•buf6eg.3coa 

SCDS 
3CDS 
IS 



HOV 

nov 

HflLT 
INC 
T5TB 
BNE 

ERROR +23 

TST aCDS 
BNE 2S 
ERROR +26 

BIT 12000, 
BNE 3S 
ERROR +42 



SCDS 



BIT 1075577, aCDS 
BEQ 4S 
ERROR +4 



SET UP COLUfti COUNT 
SET UP BUS ROORESS 

START READING 

CHECK FOR CONTROLLER READY 

BRANCH IF SET OK _ , 

; CONTROLLER READY FAILED TO b£T 

; CHECK FOR ERROR ( BIT 15) 
BRANCH ir SET OK 
' ; ERROR BIT 15 NOT SET 

: CHECK FOR DATA LATE ERROR (BIT 10) 
bRANCH IF SET OK 

;DATA LATE RIT 10 NOT SET 

; CHECK FOR ANY OTHER BITS 
; BRANCH IF^OK^ ^^^^ ^^^^^^ ^^^^ 



IS: 
2S: 
3S: 

»TEST 34 TEST ERROR AND OFF LINE BITS 

:»»«»»»*«*»«***»»***»»»»*»»»»*»******"»*»»*»»*************** 

t^yw* 5CQPF 

THE CURD REOOER MING OFF-LINE SHOaO SET ERROR (BIT 15) 
m OFF-LI-C (B!T_1?) ^^j^j^ ^^j^. 3, 

INITIALIZE STATUS REGISTER 



GOING BACK ON LINE SHOULD SET 



PC.INIT 

ns&33 

nSG3 
riSG2 
CRLF-3 

•10000, acDS 

IS 



IS: 
2S: 
3S: 



JSR 
TYPE, 
TYPE, 
TYPE, 
TYPE, 
HALT 
BIT 
BNE 

ERROR +43 

TST aCDS 
Bfll 2S 
ERROR +26 

BIT aCDS,»067577 
BEQ 3S 
ERROR +15 



TYPE, 
TYPE 
TYPE, 
HALT 



fISGl 
nSG2 
CRLF-3 



BIT ilO, 
BNE 4S 
ERROR +36 



aCDS 



TST34 OFF-LINE TEST 

"PRESS CARD READER 'STOP'"^ ^„ 

"THEN HIT 'CONTINUE' ON THE CONSOLE" 
jnOVE r£SSAGE UP ON TTY 

'CHECK BIT 12 

'"^ ISfSine cbit nrsn't set 
; check bit 15 

■■'^ <BIT IS) *SN-T SET 

: CHECK FOR EXTRA BITS 
BRANCH IF OK 

' ; STATUS WORD ERROR 

"PRESS CARD READER 'RESET'"; 
-tISn HIT 'CONTINUE' ON THE CONSOLE- 
MOVE MESSAGE UP ON TTY 



;CHECK FOR TRPHSIION TO ON-LINE(BIT 3) 
BRANCH IF SET OK 

; TRANSITION TO ON-LINE FAILED TO SET 



Eli 



DZCOB. PI 1 



u - 



3138 
313S 
3140 

3143 
3144 
3145 
314b 
3147 
314B 
SHC 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3156 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
317S 
3160 
31B1 
31S2 
3183 
3184 
3165 
3166 
3187 
3188 
3189 
3190 
3191 



016354 
016360 
016362 

016364 
016366 
016370 

016372 
016376 
016400 

016402 



Dznoe-B 



032713 
001401 
104044 

00S713 
100401 
104026 

032713 
001401 
104015 



016402 000004 



016404 
016410 

016414 
016416 
016422 
016430 
016432 
016440 
016444 
0164% 
016452 
016456 
016464 
016470 
016474 
016476 

016476 
016500 
016504 
016512 
016514 
016522 
016526 
016530 
016534 

016540 
016542 
0165% 
016554 
016556 
016564 
016570 
0'b572 



004737 
012712 

005046 
013746 
012737 
104400 
016666 
012716 
000002 
012637 
012637 
052737 
0137% 
012746 
000002 



005046 
013746 
012737 
104400 
016666 
012716 
000002 
012637 
012662 

0050% 
013746 
012737 
10440Q 
016666 
012716 
000002 
012637 
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TEST ERROR AND OFF LIfC BITS 
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5E0 013M 



010000 



077567 



025744 
016652 



000034 
016432 

000002 
016446 

000034 
001214 
000340 
001214 
016476 



000034 
016514 

000002 
016530 

000034 
000002 



000034 
016556 

000002 
016572 

000034 



BIT ilOOOO, aCDS 
dEO 5f 
ERROR +44 

TST SCDS 
BMI 6S 
ERROR 426 

8IT 1077567,3005 
BEQ 7S 
ERROR 415 



•.CHECK FOR OFF-LINE 
; BRANCH IF OK 

;OFF-LIt€ STILL SET 

; CHECK ERROR (BIT 15) 
; BRANCH IF STILL SET 

; ERROR BIT 15 CLEARED 

: CHECK FOR EXi'RA BITS 
BRANCH IF OK 

;EXTRA STfirUS BITS SET 



000034 
000006 

001214 



4S: 

5S: 
6S: 
7S: 

»««««««««»«««««««««««««««««««««««««««««««» 

TST35" SCOPE 

: TRYING TO READ WHEN CARD READER IS OFF-LINE SHOULD CAUSE AN INTERRUPT 
CHECK THAT AN INTERRUPT OCCURS U:€N THE CARD READER COMES ON LINE 
JSR PC.INIT ; INITIALIZE STATUS REGISTER 

NOV ITInTC, SADINT iLOAO RETURN POINTER 
;THE FOLLOWING REPRESENTS THE E(JUIVALENT OF "BIS •340,PS" 
6lR -(SP) 
MOV 34, -(SP) 
MOV i64s,34 
TRAP 



000034 
000006 



64S: 



65S: 



66S: 



67S: 



68S: 



000034 
000006 



69S: 



705: 



MOV 
MOV 
RTI 
MOV 
MOV 
BIS 

nov 

MOV 
RTI 



2(SP).6(SP) 
i65S,(SP) 

(SP)+,34 

(SP)+I$TMP6 

•340,4tmP6 

$TMP6,-(SP) 

t66S,-(SP) 



SAVE CURRENT TRAP VECTOR 
SETUP NEW TRAP VECTOT 
I -PUSH OLD PSU AN PCON STACK 

REPLACE OLD PC WITH NEW 
;; RESTORE PSW 

;; RESTORE OLD TRAP VECTOR 

;PUT NEW PS ON STACK 
PUT NEW PC ON STACK 
POP NEW PC AND PS 



THE FOLLOWING REPRESENTS THE EQUIVALENT OF "MOV PS,2(ADINT)* 



tLR 
MOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 



(SP) 
34. -(SP) 
•6^S,34 

2(SP).6(SP) 
•68S, \SP) 

(SP)+,34 
(SP)+.2(ADINT) 



SAVE CURRENT TRAP VECTOR 
SETUP NEW TRAP VECTOT 
1 1 PUSH OLD PSW AN PCON STACK 

REPLACE OLD PC WITH NEW 
;; RESTORE PSW 

;; RESTORE OLD TRAP VECTOR 



:THE FOLLOWING REPRESENTS THE EQUIVALENT OF "BIC 1340, PS" 



MOV 

MOV 

TRAP 

MOV 

MOV 

RTI 

MOV 



■(SP) 
34. -(SP) 
I6^S,34 

2(SP),6(SP) 
•701, tSP) 

(SP)*,34 



SAVE CURRENT TRAP VECTOR 
SETUP NEW TRAP VECTOT 
1 1 PUSH OLD PSW AN PCON STACK 

" :; REPLACE OLD PC WITH NEW 

RESTORE PSW 

:; RESTORE OLD TRAP VECTOR 



D^COfi.Pli 



ozcoe-B 

T3M 



flflCYll 27(654) 
TEST ERROR AND 



3203 



OlbbSH 

01&(>56 
0166&0 
0ie&6£ 

01&E>b4 
Qlbbbb 
01&b7G 



00121H 

Ji374b 001214 
>74b 01bS22 




l-JUL-77 08 
OFF LIME BITS 

nov 

BIC 

nov 
nov 

RTI 



01&C>72 
Qlbb7b 
Olb700 



032713 
00177S 
000402 

104021 
000002 

105713 
100401 
104023 

005713 
100401 
10402b 

032713 
001401 
104004 



'4 

03170b 
030550 
010000 



0b7477 



01b702 012712 017120 



01b70b 
Qlb710 
016714 
01b722 

8ib7§2 
0lb73b 
gib740 
Qlb744 
Olb750 
01b75b 
nb7b2 




00504b 
Q13/4b 
012737 
104400 
Qlbbbb 
01271b 
000002 
0l2b37 
0l2b37 
0S2737 
01374b 
Q1274b 
000002 



000034 

01b724 000034 

000002 00000b 
01b740 

000034 
001214 

000340 001214 

001214 

01b770 



01b770 
0lb772 
01 b77b 
017004 
01700b 
017014 
017020 
U 17022 



00504b 

01374b 000034 

012737 D1700b 000034 

104400 

01 bbbb 000002 00000b 
Q1271b 017022 
000002 

012b37 000034 



711: 

TLOPC: 

TINTC: 
CONTC: 

IS: 

2S: 

3S: 

b4S: 
b5S: 

bbS: 

b7$: 
b8S: 



3? PAGE b3 



(SP)+.$TnPb 
•340,lTnPb 

$TMP8,-(SP) 
•71S,-(SP) 



Fll 



SEQ ni35 



nov 1100. acos 
TYPE, nsGsA 

TYPE, MSG3 

TYPE CRLF-3 

BIT 110000, 3C0S 

BEQ TLOPC 

BR CONTC 

ERROR •t-21 
RTI 

TSTB SCOS 
Bni IS 
ERROR ^23 

TST acos 

Bni 2S 
ERROR •^2b 



BIT 
BEQ 
ERROR 



+4 



•0b7477,aC0S 
3S 



;;PUT rCH PS OH STOCK 

PUT NEU PC ON STRCK 
II POP NEU PC RNO PS 

;SET IHTERRUPT ENABLE 

TST3S SPECIAL INT. COND. TEST 
: "PRESS CARD READER 'STOP'" 

MOVE MESSAGE UP ON TTY 
•WAIT FOR OFF-LINE TO SET 

;SKIP INTERRUPT HANDLER 

:'STOP' SHOULDN'T CAUSE AN INTERRUPT 
; RETURN FROM THE INTERRUPT 

: CHECK CONTROLLER READY BIT 7 
BRANCH IF OK 

;CU READY DIDN'T SE"^ YET 

: CHECK ERROR BIT 
; BRANCH IF SET 

; ERROR (BIT 15) NOT SET 

: CHECK FOR ^XTRA BITS 
: BRANCH IF OK 

; STATUS WORD ERROR 



nov iTINTCA.aADINT jiLOAD RETURN POINTER ^ ^ 

THE FOLLOWING ftEPRESENT§ THE EQUIVALENT OF "BIS 1340, PS" 
-(SP) 
34. -(SP) 
•b4s,34 



nov 

MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 
BIS 
MOV 
MOV 
RTI 



2(SP),b(SP) 
ttb5S,(?P) 

(SP)+,34 

(SP)+.$TMPb 

•340,JTHPb 

$TMPt,-(SP) 

tbbS,-(SP) 



SAVE CURRENT TRAP VECTOR 
SETUP NEM TRAP VECTOT 
PUSH OLD P5U AN PCON STACK 



:; REPLACE OLD PC UITH NEU 
RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 



PUT NEU PS ON STACK 
PUT NEW PC ON STACK 
POP NEU PC AND PS 



THE FOLLOUING REPRESENTS THE MUIVALENT OF "MOV PS,2(ADINT)' 



fcLR 
MOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 



■(SP) 
34. -(SP) 
•b>S.34 

2(SP),b(SP) 
•b8S,(SP) 

(SP)+,34 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
••PUSH OLD PSW AN PCON STACK 

:;REPLACE OLD PC UITH NEU 
;; RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 



Gl 



ozcoe.pu 



D2CDB-B MftCYU 27(854) i-JUL-77 08: 3S PftGE 64 
T3M TEST ERROR RHD OFF LINE BITS 



SEQ 0i3k 



0170% OlZbbi 000002 



0171 

8l7L _ 
0170% 
017050 
1171 
171 
117064 
)17070 
017074 
017102 
017106 
01711? 
017114 
017114 
017116 

017120 
0171S2 
017124 
017126 

017130 
017134 
017136 

017140 
Q17142 
017144 

017146 
017152 
017154 




00003H 

017050 000034 

00000c 000006 69S: 
017064 



012S37 
ni2637 
042737 
013746 
0127% 
000002 

005213 
0007'/'7 

022626 
106713 
100401 
104023 

032713 
001001 
104043 

005713 
100401 
104026 

032713 
001401 
104004 



000034 
X1214 

000340 001214 

001214 

017114 



017162 
017164 
017170 
017176 
017200 
017206 
017212 
017214 
017220 
017224 
017232 
017236 
017242 
017244 



005046 
013746 
012737 
104400 
016666 
012716 
000002 
012637 
012637 
052737 
013746 
012746 
000002 



010000 



067477 



017i:i6 012712 017402 



70S: 



711: 



TINTCfl: 



IS: 



2S: 



3S: 



4S: 



000034 

017200 000034 

000002 000006 64S: 
017214 



000034 
001214 

000340 001214 

001214 

017244 



65S: 



&6S: 



nOV (SP)+.2(ftDINT) 
THE FOLLOUIN& REPRESENTS THE EOUIVRLENT OF "BIC 1340, PS" 



6lr 

NOV 

nov 

TRAP 

NOV 

NOV 

RTI 

MOV 

MOV 

BIC 

MOV 

MOV 

RTI 

INC 
BR 

CMP 
TSTB 
BMI 



'.SP) 
34. -(SP) 
16^,34 

2(SP).6(SP) 
•70$, (SP) 

(SP)+,34 

(SP)+I$TMP6 

•340,iTHP6 

STMP6,-(SP) 

•71S,-(SP) 



SCDS 



ERROR ^23 



(SP)+, 
SCDS 
IS 



(SP) + 



BIT 110000, SCDS 
BNE 2S 
ERROR +43 

TST SCDS 
Btll 3S 
ERROR -^26 

BIT 1067477,3005 
BEQ 4S 
ERROR +4 



SAVE CURREH' TRflP VECTOR 
SETUP NEW TRAP VECTOT 
••PUSH OLD PSU AN PCON STACK 

" :; REPLACE OLD PC UITH NEU 

;; RESTORE PSW 

;; RES TORE OLD TRAP VECTOR 

;:PUT NEU PS ON STACK 

:PUT NEU PC ON STACK 
II POP NEU PC AND PS 

:TRY TO READ A CARD 
lUAIT FOR THE INTERRUPT 

; RESTORE THE STACK 
CHECK CONTROLLER READY BIT 7 
; BRANCH IF OK , ^, 

;CU READY DIDN'T SET YET 

; CHECK FOR OFF-LINE BIT 12 
BRANCH IF OK 

; OFF-LINE BIT 12 NOT SET 

; CHECK ERROR BIT 
BRANCH IF SET 

; ERROR (BIT 15) NOT SET 

: CHECK FOR EXTRA BITS 
BRANCH IF OK 

; STATUS UORD ERROR 



MOV ITINTCB^DINT :LOAD RETURN POINTER , „ 
THE FOLLOWING ftEPRESENT§ THE EQUIVALENT OF "BIS 1340, PS" 



6lr 

MOV 

MOV 

TRAP 

MOV 

MOV 

RTI 

MOV 

MOV 

BIS 

MOV 

MOV 

RTI 



'(SP) 
34, -(SP) 
•64s, 34 

2(SP),6(SP) 
«65S,(SP) 

(SP)+,34 

(SP)+.STMP6 

«340,iTMP6 

STMPfe,-(SP) 

«66S,-(SP) 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
1 1 PUSH OLD PSU AN PCON STACK 

:; REPLACE OLD PC WITH NEW 
;; RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 

:PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 



017244 005046 



:THE FOLLOWING REPRESENTS THE EQUIVALENT OF "MOV PS,2(ADINT)* 
6lR -(SP) 



H 



nfllNOEC - 11 
DZCDB. PH 



3300 

3301 



330H 

?^ 
3307 
3308 

3313 

331M 

3315 

33lb 

3317 

3318 

331'' 

3320 

3321 

332? 

3323 

3324 

3325 

3326 

3327 

3328 

332S 

3330 

3331 

3332 

3333 

33wlH 

3335 

333b 

3337 

3339 

333^ 

33M0 

33MI 

33M2 

33H3 

33HH 

33H5 

33Mf. 

33M7 

3348 

3349 

3350 

3351 

3352 

3353 



72% 
7252 

7270 
7274 
727b 
73C2 



017314 
017322 
017324 
017332 
01 7338 
017340 
017344 
017350 
017356 
017362 
017366 
017370 
017370 
017374 
017400 

017402 
017404 
Q17410 
01/412 

017414 
017420 
017422 

01742M 
017426 
017430 

017432 
017436 
017440 

017442 



DZCOe-B 
T3M 

0137% 
012737 

012716 
Q00OQ2 
012637 
012663 

012737 
lOMMOO 
016666 
012716 
000002 
012637 
012637 
042737 
01374C 
012746 
000002 



104400 
104400 
000777 

022626 
032713 
001001 
104036 

032713 
001401 
104044 

005713 
100401 
104026 

032713 
001401 
104015 



017442 000004 



flftCYU 27(65^) 
TEST ERROR 9HD 

000034 

017262 000034 

000002 000006 
017276 

000034 
000002 



000034 

017324 000034 

000002 000006 
017340 

000034 
001214 

000340 001214 

001214 

017370 



l-JUL-77 OB: 3^ PAGE 65 
OFF LINE BITS 



SEO 0137 



031576 
030550 



000010 
010000 



077467 



67S: 
68S: 



69S: 
70 J: 

71$: 

TINTCB: 

IS: 
2S: 



3S: 



MS 



nov 

MOV 

TRAP 

fWV 

MOV 

RTI 

MOV 

MOV 

I THE 

tLR 

MOV 

MOV 

TRAP 

MOV 

MOV 

RTI 

MOV 

MCV 

BIC 

MOV 

MOV 

RTI 

TYPE, 

TYPE 

BR 



34 -(SP) 
i67S,34 

2(5P),6(SP) 
IbBS.tSP) 

(SP)+,34 
(SP)+,2(flDINT) 
FOLLOWING REPRESENTS 
-(SP) 

34. -(SP) ; 
•6^1,34 

2(SP),6(SP) I 
I70S,(SP) 

(SP)+,34 
(SP)+!fTHP6 
•340,iTMP6 
STMPfe,-(SP) 
•71$, -(SP) 



MSGl 
CRLF-3 



CMP (5P)+, 
BIT 110, 
BNE 1$ 
ERROR ^36 



(SP) + 

acDS 



BIT tioooo, acos 

BEQ 2$ 
ERROR +44 

TST aCDS 
BMI 3$ 
ERROR •t-26 

BIT 1077467,3005 
BEQ 4$ 
ERROR +15 



.;SflVE CURRENT TRAP VECTOR 
; SETUP NEU TRAP VECTOT 
i;PU3H OLD PSU AM PCON STACK 

:; REPLACE XD PC WITH i€U 
;: RESTORE PSW 

;; RESTORE OLD TRAP VECTOR 

JV£ EQUIVALENT OF "BIC 1340, PS" 

lisAVE CURRENT TRAP VECTOR 

SETUP NEW TRAP VECTOT 
••PUSH OL' PSU Ah PCON STACK 

:; REPLACE OLD PC WITH NEU 
• • RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 

::PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
1 1 POP NEU PC AND PS 

; "PRESS CARD READER 'RESET'" 
HOVE MESSAGE UP ON TTY 
•UAIT FOR THE INTERRUPT 

; RESTORE THE STACK 

i CHECK FOR TRANSITION TO ON-LINE (BIT 3) 

'^^^ ! TRANSITION TO ON-LINE FAILED TO SET 

; CHECK FOR OFF-LINE 
BRANCH IF OK 

; OFF-LINE STILL SET 

; CHECK ERROR (BIT 15) 
BRANCH IF STILL SET 

: ERROR BIT 15 CLEARED 

;CI£CK FOR EXTRA BITS 
{BRANCH IF OK 

; EXTRA STATUS BITS SET 



017444 
017450 
017454 



004737 
104400 
104400 



025744 
035765 
031774 



#«»»»#«»»»»#««»««»»»*«***«*"«««***«««»«»«***«»«*******'****** 
•«TEST 3b TEST INPUT HOPPER EMPTY 

:»»«»»«»»»»»»»»*»*»»*»«*»»»*»»**«»«»»»«»»*»*»»*«»*»«««**««*** 

llNPUt HOPPER EMPTY SHOULD SET SPECIAL CONDITION 
I CHECK THAT INTERRUPTS OCCUR UHEN_THE.CARD_REAOER_COMES OM LINE 



JSR 
TYPE, 
TYPE, 



PC.INIT 
MS&35 
MSGS 



INITIALIZE STATUS REGISTER 
TST36 HOPPER EMPTY TEST 
"REMOVE ALL CARDS FROM THE INPUT HOPPER" 



DZCOe-B fWCYli 27(b54) l-JUL-7: 
T3t, TEST INPUT HOPPER EMPTY 



13 010000 



MfilNOEC - 11 
DZCDB.PU 

33SH 017%0 lOMMOO 031632 

3355 OlTMbM lOMHOO 030550 

3356 Q 1 7470 

3357 Q17M7? 

3358 017H7b 001001 

3359 017500 10H0M3 
33t)0 

33fci 01 7502 00571 3 

336.2 01750M 100401 

33b3 017506 10402b 
33b4 

33b5 0 J 75 10 032713 040000 

33bb 017514 001001 

3367 0175ib 104035 
33b8 

33b9 017520 032713 027573 

3370 017524 001401 

3371 01752b 104015 
3373 

017530 012712 017764 



337B 
3379 
3380 
33B1 
3382 
3383 
3394 
3385 
338b 
3387 
3388 
338S 
33S0 
3391 
3392 
3392 
3394 
3395 

m 

3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
340b 
3407 



017534 

81714! 
017550 
017552 
0175bD 
0175b4 
OlTSbb 
017572 
01757b 
017b04 
0l7bl0 
017bl4 
017616 

0l7blb 
017b20 
017624 
017b32 
017b34 
017b42 
017646 
017650 
017654 

017bbO 
017b62 
01766b 
017674 
017676 
017704 
017710 
017712 



005046 
013746 
012737 
104400 
016666 
012716 
000002 
012637 
012637 
0S2737 
013746 
012746 
00U002 



0050H6 
013746 
012737 
1044CO 
016666 
012716 

& 

012662 

0050H6 
01374b 
012737 
104400 
016666 
012716 
000002 
012637 



iS2 000034 



000002 000006 
017566 

00003H 
001214 

000340 C01214 

001214 

017616 



000034 

017634 000034 

OOUOO? 000006 
01765U 

000034 
000002 



000034 

017676 000034 

000002 00000b 
017712 

000034 



IS: 
2S: 
3S: 
4J: 

64i: 
65S: 

66S: 

67S: 
bSS: 



69S: 
70$: 



111 

08:39 PflGE 66 



:"THEN HIT 'CONTINUE' ON THE CONSOLE" 
;t10VE HESSflGE UP ON TTY 

:CHECK BIT12 
BRANCH IF SE'T 

;0FF-LINE (BIT 12) WASN'T SET 

; CHECK ERROR BIT 
BRANCH IF SET 

: ERROR (BIT 15) NOl SET 

.•CHECK FOR CARD READER ERROR 
; BRANCH IF SET 

;CARD READER ERROR BIT 14 NOT SET 

: CHECK FOR EXTRA BITS 
BRANCH IF OK 

; STATUS WORD ERROR 



TYPE, nsaz 

TYPE, CRLF-3 

B?r tioooo,acos 

BNE IS 
ERROR +43 

TST acos 

BMI 2S 
ERROR +26 

BIT 140000, 3CDS 
BNE 3S 
ERROR +35 

BIT 1027573,3005 
BEQ 4S 
ERROR +15 

fOV ITINTD, aflOINT :LOAD RETURN POINTER 
THE FOLLOWING' REPRESENTS THE EQUIVALENT OF "BIS •340,PS" 

34!- (SP) j-SAVE CURRENT TRAP VECTOR 

•bAS,34 SETUP NEW TRAP VECTOT 

PUSH OLD PSW Al- PCON STACK 



tLR 
MOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 
BIS 
MOV 
MOV 
HTI 



2(SP),b(SP) 
•bSS, (£P) 

(SP)+,34 

(SP)+!$TMPb 

•340.iTMPb 

STMPb,-(SP) 

«b6S,-(SP) 



:; REPLACE OLD PC WITH NEW 
;: RESTORE PSW 

;; RESTORE OLD TRAP VECTOR 



PUT NEW PS ON STACK 
PUT NEW PC ON STACK 
POP NEW PC AND PS 



THE FOLLOWING REPRESENTS THE EQUIVALENT OF "MOV os,2(flDINT)' 

SAVE CURRENT TRAP VECTOR 
SETUP NEW TRAP VECTOT 
PUSH OLD PSU AN PCON STACK 

:: REPLACE OLD PC WITH NEW 
RESTORE PSW „ 
RESTORE OLD TRAP VECTOR 



tlR 
MOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 



-(SP) 
34. -(5P) 
I6>S,34 

2(SP),6(SP) 
I66S,ISP) 

(SP)+,34 
(SP)+.2(A0INT) 



.THE FOLLOWING REPRESENTS THE EQUIVALENT OF "BIC 1340, F5" 

cL R - ( SP ) 

MOV 34:-(SP) I -SAVE CURRENT TRAP VECTOR 

MOV 16^1,34 SETUP NEW TRAP VECTOT 

TRAP ; I PUSH OLD PSW AN PCON STACK 

MOV •70$!lSpf ^ "rcctor^'pIw'-^'^^ 

MOV ( SP ) + , 34 ' ;; RESTORE OLD TRAP VECTOR 



Jll 



Dzcoe.Pii 



11 - 



DZCDB-e HflCYU 27(b54) i-JUL-77 08:3S PAGE 67 
T3b TEST INPUT HOPPER EMPTY 



3M08 
3MCM 
3410 

3M13 
3414 
3415 
341b 

3417 
34'd 

c.ig 

34£0 
3421 
3422 
3423 
3424 
3425 
342b 
3427 
3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
343b 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
344b 
3447 
3448 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
345b 
3457 
3458 
3M59 
34b0 
34b 1 



SEQ 0139 



01771b 
117722 
017730 
Q17734 
017740 
017742 
017/42 
':i774b 
017752 
0177Sb 
01 77b2 

0177b4 
0177bb 

017772 
017774 
020000 
02000b 
0200J0 
02001b 
020022 
020024 
020030 
020034 
020042 
0200Hb 
020052 
020054 

020054 
OSOOSb 
02001 
0200 
020072 
020100 

w& 

020112 

02011b 
020120 
020124 
020132 
020134 
020142 
02014b 
020150 
020154 
020lb0 
0201bb 
020172 
02017b 
020200 



ai2b37 001214 
042737 000:D40 




012713 
104400 
104400 
104400 
000777 

022b2b 
012712 

00504b 
01374b 
012737 
104400 
Olbbbb 
0i271b 
000002 
012b37 
012b37 
052737 
01374b 
01274b 
000002 



00504b 
01374b 
012737 
104400 
Olbbbb 
01271b 
000002 
012b37 
012bb2 

00504b 
01 374b 
012737 
104400 
Olbbbb 
01271b 
000002 
0l2b37 
012637 
042737 
01374b 
01 274b 
000002 



000100 
032045 
03157b 
030550 



020214 



000034 
020010 

000002 
020024 

000034 
001214 
000340 
001214 
020054 



000034 
020072 

000002 
02010b 

000034 
000002 



000034 
020134 

000002 
020150 

000034 
001214 
000340 
001214 
020200 



001214 



71J: 



TINTD: 



000034 
OJOOOb 

001214 



000034 
00000b 



b4S: 
b5S: 

bbS: 

b7S: 
b8S: 



000034 
00000b 

001214 



b9S: 
70 J: 

71$: 



nov 

BIC 
flOV 
flOV 
RTI 

MOV 

TYPE, 

TYPE 

TYPE, 

BR 



(SP)+.STMPb 
•340,tTMPb 
STf1Pfe,-(SP) 
•7U,-(SP) 



;;PUT NEW PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 



ilOO, 

risGb 

MSGl 
CRLF-3 



aCDS 



;SET INTERRUPT ENABLE 
"RESTORE CARDS TO THE INPUT HOPPER' 
"PRESS CARD READER 'RESET'" 
HOVE fCSSAGE UP ON TTY 
UflIT FOR THE INTERRUPT 



CMP (SP)+^ (SP)+ ; RESTORE THE STACK 
MOV tTINTftA-aftDINT iLOfO RETURN POINTER 
:THE FOLLOWING REPRESENTS THE EQUIVALENT OF "BIS 1340, PS" 



fcLR 
MOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 
BIS 
MOV 
MOV 
RTI 

:THE 

tLR 

MOV 

MOV 

TRAP 

MOV 

MOV 

RTI 

MOV 

MOV 

:THE 

tLR 

MOV 

MOV 

TRAP 

MOV 

MOV 

RTI 

MOV 

MOV 

BIC 

MOV 

MOV 

RTI 



-(SP) 
34. -(SP) 
•b4s,34 

2(SP),b(SP) 
•b5S,!SP) 

(SP)+,34 

(SP)+.STMPb 

i340,JTMPb 

STMP6,-(SP) 

•bbS,-(SP) 



jSAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
••PUSH OLD PSU AN PCON STACK 

" ::REPLACE OLD PC WITH NEW 

;; RESTORE PSW 

RESTORE OLD TRAP VECTOR 



FOLLOWING REPRESENTS 
-(SP) 
34. -(SP) 
•b7S,34 



2(SP),b(SP) 
ib8S,(SP) 



(SP)+,34 
(SP)+.2(ADINT) 
FOLLOWING REPRESENTS 
-(SP) ; 
34. -(SP) 
•b9S,34 



2(SP),b(SP) 
i70S,!SP) 

(SP)+,34 

(SP)+.$TMPb 

•340,fTMPb 

STHP6,-(SP) 

•71J,-(SP) 



! I 
• » 



PUT NEW PS ON STACK 
PUT NEW PC ON STACK 
POP NEU PC AND PS 

THE EQUIVALENT OF "MOV PS,2(ADINT)' 

SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
PUSH OLD PSU AN PCON STACK 

REPLACE OLD PC UITH NEU 
RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 

THE EQUIVALENT OF "BIC i340,PS" 

SAVE CURRENT TRAP VECTOR 
SETUP NEW TRAP VECTOT 
PUSH OLD PSW AN PCON STACK 

:: REPLACE OLD PC WITH NEU 
RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 



PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 



HfilMOEC - 11 - DZCD6-B fWCYlI 27(b5H) l-JUL-77 
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Kii 



3Mb2 020200 012714 177701 
3%3 020204 012715 045442 



3467 

m 

3470 
3471 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 
3462 
3463 
3484 

m 

3487 
3488 

m 

3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
3500 
35131 



35C 



3508 

110 
ill 
3512 
3513 
3514 
3515 



020214 



020224 
020226 



022626 

□22713 000300 

0014.11 

104004 



020226 000004 




004737 025744 
104400 036020 
104400 032111 



020244 
020250 
020254 



020264 

02027^ 

020274 
020300 
020302 

020304 
020310 
020312 



104400 
104400 
000000 

104043 

l8Sil 
104026 

032713 
001001 
104035 

032713 
001401 
104015 



U3i632 
030550 

010000 



040000 



027577 



020314 012712 020544 




020362 

m 

020400 



005046 
013746 
012737 
104400 
016666 
012716 
000002 
012637 
012637 
052737 

000002 



HOV 

nov 



t-77. acDC 
•BUFBEG.SCDA 
3CDS 



TINTDfi: 



CMP (SP)+. (SP)+ 
CMP i0O0360,3C0S 
BEQ IS 
ERROR -^4 



;SET UP COLUMN COUNT 
;SET UP BUS POORESS 

; RES I ORE THE STACK 
CHECH THE CARD READER STATUS 
: BRANCH IF OK 

;CARD READER STATUS ERROR 



IS: 

;«TEST 37 TEST OUTPUT STACKER FULL 

tST37: SCOPE 

; OUTPUT STACKER FULL SHOULD SET BITS 15. 14, 12. 7 

JSR PC.INIT 

TYPE, nSft36 



TYPE, MSG? 



TYPE, 
TYPE 
HALT 
BIT 
BNE 



MSG2 
CRLF-3 

ll00a0,9CDS 
IS 



000034 

020336 000034 

000002 000006 
020352 

000034 
001214 

000340 001214 

001214 

020402 



IS: 
2S: 
3S: 
4S: 

64S: 
&5S: 



ERROR +43 

TST aCDS 
BMI 2S 
ERROR +26 

BIT 140000, aCDS 
BNE 3S 
ERROR +35 

BIT 1027577, aCDS 
BEQ 4S 
ERROR +15 



; INITIAtiZE STAtuS REGISTER 
TST37 STACKER FULL TEST 
"PULL OUTPUT STACKER PRESSURE ARM 

:ALL THE WAY DOWN" 
;"THEN HIT 'CONTINUE' ON THE CONSOLE" 
•HOVE MESSAGE UP ON TTY 

; CHECK OFF-LINE BITi2 
BRANCH IF SET 

;OFF-LINF (BIT 12) WASN'T SET 

; CHECK LRROR BIT 15 
BRANCH IF SET 

; ERROR BIT 15 NOT SET 

; CHECK FOR CARD READER ERROR 
; BRANCH IF SET 

;CARD READER ERROR BIT 14 NOT SET 

; CHECK FOR EXTRA BITS 
; BRANCH If OK 

; STATUS WORD ERROR 



HOV iTINTE, aADINT :LOAD RFTURN POINTER 
THE FOLLOWING REPRESENTS THE EQUIVALENT OF "BIS 1340, PS' 



tLR 
HOV 
HOV 
TRAP 
HOV 
MOV 
RTI 
HOV 
HOV 
BIS 
MOV 
MOV 
RTI 



-(SP) 
34, -(SP) 
k64S,34 

2(SP),b(SP) 
M65S,tSP^ 

(SP)+,34 

(SP)+.STMP6 

•340,iTHPb 

STHP6,-(SP) 

i66S,-(5P) 



;:SAVE CURRENT TRAP VECTOR 

SETUP NEW TRAP VECTOT 
I ; PUSH OLD PSU AN PCON STACK 

REPLACE OLO PC WITH NEW 
. •RESTORc P^W 

RESTORE OLD TRAP VECTOR 



;;PUT NEW PS ON STACK 

PUT NEW PC ON STACK 
I : POP NEW PC AND PS 



Lil 



ttftlNCCC - 

Dzcoe.pii 



11 



ozcoe-B 

T37 



3S21 
3522 

3525 
352fc 
3527 
3528 
352S 
3530 
3531 
3532 
3533 
353M 
3535 
353fe 
3537 
J53b 

isr-i 

JS43 

sb 
jj47 
3548 
3549 
3550 
3551 
3S52 
3553 
3554 
3555 
355& 
3S57 
3558 
3559 
3SbQ 
35b 1 
35{>2 
3S&3 

35&b 
35fe^ 
35b8 
35fc9 



020402 



020M10 
020H1£, 
020420 



02043H 
020440 

020444 
02044b 
020452 
020460 
0204b2 
020470 
020474 
02047b 
020502 
02050b 
020514 
020520 
020524 
02052b 
n2052b 
020532 
02053b 



020544 
02054b 

020552 
020554 
0205bO 
Q205bb 
020570 
02057b 
020b02 
02Qb04 

oaobio 

Q20bl4 
020822 
020b2b 
020832 
020834 

020834 
020838 
020842 
020850 
020852 



m 

012737 
104400 
018888 
012718 



012837 
012882 

00504b 
01374b 
012737 
104400 
01 bbbb 
01271b 
000002 
012b37 
012b37 
042737 
01374b 
012745 
000002 

012713 
104400 
104400 
000777 

022b2b 
012712 

005P4b 
013748 
012737 
104400 
018888 
012718 
000002 
012837 
012837 
052737 
013748 
01274b 
000002 



00504b 
01374b 
012737 
104400 
Qlb888 
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SEQ 0141 



000034 
020420 

000002 
020434 

000034 
000002 



000034 
020482 

000002 
02047b 

000034 
001214 
000340 
001214 
02052b 



000100 
03157b 
030550 



020774 



000034 
020570 

000002 
020804 

000034 
001214 
000340 
001214 
020534 



000034 
020b52 

000002 



88S: 

000034 
000008 87S: 

88S: 

000034 
000008 89S: 



70$: 



001214 



71$: 
TINTE: 

000034 
000008 84$: 



001214 



85$: 



88$: 



:THE 

6lr 

HOV 

nov 

TRflP 
MOV 

nov 

RTI 
flOV 
HOV 

tLR 
flOV 
HOV 
TRflP 

nov 
nov 

RTI 

nov 
nov 

BIC 

nov 
nov 

RTI 

MOV 
TYPE, 
TYPE, 
BR 

CMP 
MOV 



FOLLOUING REPRESENTS 
-(SP) 
34. -(SP) 
•871,34 

2(5P),6(SP) 
186$, (SP) 

(SP)+,34 
(SP)+.2(flDINT) 
FOLLOWING REPRESENTS 
-(SP) 
34. -(SP) 
•8^,34 



2(SP),8(SP) 
•70$, (SP) 

(SP)+,34 
(SP)+.$TnP8 
•340jTnP6 
$TnP6,-(SP) 
•71$, -(SP) 



THE EOJIVflLENT OF "HOV PS,2(ADINT)" 

•SAVE CURRENT TRflP VECTOR 
; SETUP reU TRflP VECTOT 
;PUSH OLD PSU flN PCON STACK 

::REPLflCE OLD PC WITH NEU 
; RESTORE PSU 

RES TORE OLD TRflP VECTOR 

THE EQUIVflLENT OF "BIC «340,PS' 

ISflVE CURRENT TRflP VECTOR 
; SETUP NEU TRflP VECTOT 
;PUSH OLD PSU flN PCON SlflrK 

:;REKflCE OLD PC UITH NEU 
: RESTORE PSU 

;; RESTORE OLD TRflP VECTOR 



PUT NEU PS ON STflCK 
PUT NEU PC ON STflCK 
POP NEU PC AND PS 



• 100, 

MSGl 

CRLF-3 



3CDS 



;SET INTERRUPT ENABLE 
"PRESS CARD READER 'RESET" 
nOVE nESSAGE UP ON TTY 
WAIT FOR THE INTERRUPT 



(SP)+. (SP)+ ; RESTORE THE STACK 
•TINTfefl.aflDINT iLOAD RETURN POINTER 



THE FOLLOUING ftEPRESENT§ THE ECttJIVALENT OF "BIS •340, PS" 



nov 
nov 

TRflP 

MOV 

MOV 

RTI 

MOV 

MOV 

BIS 

MOV 

MOV 

RTI 



-(SP) 
34,-(SP) 
•84$p34 

2(SP),8(SP) 
185$, (SP) 

(SP)+,34 
(SP)+.$TnP8 
•340, jTMPb 
$TnP6,-(SP) 
•bb$, -(SP) 



;SflVE CURRENT TRflP VECTOR 
SETUP NEU TRAP VECTOT 
•PUSH OLD PSU AN PCON STACK 

:; REPLACE OLD PC UITH NEU 
;; RESTORE PSU 

RESTORE OLD TRAP VECTOR 



PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 



THE FOLLOUING REPRESENTS THE EQUIVALENT OF "NOV PS,2(ADINT)" 



000034 
00000b b7$: 



6lr 
nov 
nov 

TRAP 

nov 



-(SP) 
34. -(SP) 
•87$, 34 

2(SP),8(SP) 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
PUSH OLD PSU AN PCON STflCK 



flhilNOeC - 11 - DZCOB-B 
OZCOe.Pll T37 



QSObbO 
O20bt» 



01271b 
000002 



Bi 



020b7b 
020700 
02070M 

n2 

'IM 




0050% 
0137% 
012737 
10S400 
Dlbbbb 
01271b 



012b37 
,737 
137% 



... ^0 
020772 

02077M 
02077b 
021002 
02100H 

02100b 



012714 

mi 

000777 

022b2b 
022713 
001401 
104004 



02100b 000004 



021010 



004737 
1Q440Q 
104400 
1Q440Q 
104400 




Q2105b 
02l0b2 



032713 
XlOOl 
104043 

032713 
001775 



MflCYU 27(b54) l-JLIL-77 08:39 Pf^GE 70 
TEST OUTPUT STfiCKER FULL 



Mil 



SEQ 01 42 



020bbb 



000300 



025744 
03b053 
03177« 
Q31b32 
032270 

03157b 
030550 

010000 



UOOOlO 



nov 

RTI 

b8f: nov 



•b8S. (5P) 



: ; REPLACE OLD PC UITH NEW 
;; RESTORE PSU 

;: RESTORE ^LD TRftP VECTOR 



000034 

020714 000034 

000002 00000b b<3S: 
020730 



000034 
001214 

000340 001214 

001214 

0207b0 



177701 
045442 



CLR 

nov 

MOV 
TRAP 

nov 
nov 

RTI 
MOV 
MOV 
BIC 

nov 
nov 

RTI 

MOV 
MOV 
INC 
BR 



TINTEfl: CMP 
CMP 
BEQ 



iiPi+:?(fwiNT) 

FOLLOUINfi REPRESENTS THE EQUIVflLEMT OF "BIC 1340, PS 
-(SP) 

34.-(SP) ;S«VE CURRENT TRftP VECTOR 

•bH,34 SETUP NEW TRflP VECTOT 

PUSH OLD PSH AN PCON STACK 



701: 



71$: 



ERROR ^4 



2(SP),b(SP) 
|70S,(SP) 

(SP)+,34 

(SP)+.STMPb 

•SHO.iTMPb 

ITMP6,-(5P) 

i71I,-(SP) 



•-77. aCDC 
iBUFgECaCDR 

acDs 



(SP)+. (SP)+ 

t0003ClO,aCDS 

IS 



:; REPLACE OLD PC WITH NEU 
;; RESTORE PSU 

RESTORE OLD TRAP VECTOR 



PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 



:SET UP COLUMN COUNT 

SET UP BUS ADDRESS 

START READING 
•UAIT FOR AN INTERRUPT 

; RESTORE THE STACK 
CHECH THE CARD READER STATUS 
; BRANCH IF OK 

;CARO READER STATUS ERROR 



IS 



fTEST 40 TEST PICK CHECK ERROR 

tST40: SCOPE 

:A PICK CHECK ERROR SHOULD SET BIT 15. BIT 14. AND BIT 12 ^ 

THIS ERROR OCCURS WHEN THE FEED MEChAnISM FAIlS TO DELIVER A CARD TO 
THE READ STATION WITHIN 400 MS. _ . 
CAN ALSO BE FORCED BY FOLDING A CARD IN HALF 
AND PLACING IT INTO CARD READER 'INPUT HOPPER' 
PC.INIT 



JSR 
TYPE, 
TYPE 
TYPE, 

type; 

TYPE, 
TYPE 
HALT 
BIT 
BNE 
ERROR 443 



MS637 
MSGS 
MSG2 
MSGS 

MSGl 
CRLF-3 

110000, acos 

IS 



TSTHO PICK CHECK TEST 
-REMOVE ALL CARDS FROM THE INPUT HOPPER" 

'HEN HIT 'CONTINUE' ON THE CONSOLE" 
"HOLD DOWN THE SWITCH UNDER THE CAP 
OF THE INPUT HOPPER" 
"PRESS CARD READER 'RESET'" 
MOVE MESSAGE UP ON TTY 



: CHECK FOR OFF-LINE 
; BRANCH IF SET 

;OFF LINE NOT SET AFTER 



•CONTINUE" 



IS: 



BIT 
BEQ 



•10, 
1$ 



acos 



: CHECK FOR "TRANSITION TO ON 
luAIT FOR IT 



.INE- 



lHlNO£v 11 - D2C0B-B 
DZCDB.PU TWO 

3b2S 023713 
%2S 0210/0 001401 
021072 10400M 



fWCrU 27(b54) l-JUL-77 08:3S 71 
TEST PICK C>€CK ERROR 



Nil 



SCQ OlH 



3b3<) 
3b40 
3b41 
3fa42 
3643 
36.44 
3b45 
3fc4f, 
3b47 

3b50 
3bSl 
3bS2 
3bS3 
3b54 
3b55 
3S5b 
3b57 
3b58 
3b5<) 
3bbO 



Ml 

3bbb 
3bb7 



3b"'0 

¥i 

3b75 
3b 74 
3b 

3fc^b 
3b'" 



81 



1074 012714 
1100 P12715 



M 811 12 Wil 

3b32 021110 10Q37b 

$S 811 il^ 8^1 oil 

:b3S 021120 104043 



140210 



17770: 
045442 



010000 



8li 



021 12b 



021130 
021134 
02113b 



021140 
021144 



li4b 
1154 
02115b 



021 ICO 
021 lb4 
021 Ibb 



005713 
100401 
10402b 

032713 
001001 
104035 

005777 
100005 

032777 
001001 
104045 

031327 
001401 
104015 



040000 



lb0074 



2S: 
3$: 

41: 
5S: 
bS: 



020000 Ib00b4 



027577 



021170 012712 021424 



7J: 



lOS: 



Q0504b 
01374b 
012737 
104400 
OlbbSb 
01271b 




000034 

021212 000034 

000002 OQOOOb b4I: 
02122b 



02l2Sb 
021280 
02l2b4 
321572 
021274 



000002 



00504b 
01374b 
012737 
104400 
Olbbbb 



000034 
001214 

j40 001214 



bSS: 



bbl: 



000034 

021274 000034 
000002 00000b b7I: 



CflP 1140210,3005 

BEQ 2S 

ERROR 

nOV 1-77. 3CDC 

nOV fBUFSEG,9CDP 

INC 3CDS 

TSTC aCDS 

BPL 3S 

8IT 110000, 8CD5 

Bf€ 4S 

ERROR -^43 

TST aCDS 

BhI 5S 
ERROR 

BIT 140000, 9C0S 

BNE bl 

ERROR ^35 



TST 
BPL 



aCDOB 
7S 



BIT 120000, SCOOB 
Bf€ 7S 
ERROR +45 

BIT aCDS, 1027577 
BEQ lOS 
ERROR +15 



jC»€CK FOR CORRECT STATUS BITS 
.BRflhCH IF OK 

; STATUS hOT EQUAL TO 140210 

SET UP COLUMN COUNT 
SET UP BUS ADDRESS 
READ 

CHECK CONTROLLER READY 
WAIT FOR CONTROLLER READY 
CHECK BIT12 
BRANCH IF SET 

;OFF-LIf€ (BIT 12) WASN'T SET 

: CHECK SPECIAL CONDITION BIT 
BRANCH IF SET 

; SPECIAL CONDITION NOT SET 

{CHECK FOR CARD READER ERROR 
; BRANCH IF SET 

;CARO READER ERROR BIT 14 NOT SET 

TEST BIT 15 OF STATUS REGISTER 12 

BRANCH IF NOT SET INDICATING 

OLD CDU CONTROLLER 

IS PICK CHECK INDICATOR SET' 

BRANCH IF SET 

PICK CHECK BIT13 NOT SET 

CHECK FOR EXTRA BITS 
BRANCH IF OK 

; STATUS UORD ERROR 



NOV ITINTF, SADINT :LOAO RETURN POINTER 
THE FOLLOWING REPRESENT^ THE EQUIVALENT OF "BIS 1340, PS" 



fcLR 
NOV 
MOV 
TRAP 
NOV 
NOV 
RTI 
MOV 
MOV 
BIS 
NOV 
MOV 
RTI 



-(SP) 
34,-CSP) 
•641,34 

2(SP),b(SP) 
•bSS.lSP) 

(SP)+,34 

(SP)+.STMPb 

t340,iTMPb 

STmH,-(SP) 

•bbt.-(SP) 



SAVE CURRENT TRAP VECTOR 
; SETUP NEU TRAP VECTOT 
I; PUSH OLD PSU AN PCON STACK 

: {REPLACE OLD PC WITH NEW 
: {RESTORE PSU 

{{RESTORE OLD TRAP VECTOR 

{PUT NEW PS ON STACK 
PUT NEU PC ON STACK 
{ POP NEU PC AND PS 



THE FOLLOWING REPRESENTS THE EQUIVALENT OF "MOV PS,2(A0If<T/- 



(lr 

MOV 
NOV 
TRAP 
MOV 



-(SP) 
34 -(SP) 
•6^S,34 

2(SP),b(SP) 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
PUSH OLD P5W AN PCON STACK 



rwiNDCc - 11 - Dzcoe-B 

DZCDB.Pll THO 



3b78 
3679 
3680 
3b8I 
3682 
3663 
368M 
3685 
)686 
J6H7 

368*9 
3690 
3bSi 
3692 
36^3 
3f ^ 
369S 
36% 
3697 
3698 
3699 
3700 
3701 
3702 
3703 
370m 
3705 
3706 
3707 
3708 
3709 
3710 
3711 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3720 
3721 
3722 
3723 
372^' 
3725 



3728 
3729 
3730 
3731 



021302 
Sl30b 
021310 
021314 

021320 
021322 
02132^ 
02133H 
021336 
(J213HM 
021350 
021352 
021356 
021362 
021370 
02137M 
021400 
021402 
021402 
021406 
021412 
021418 
021422 

021424 
021426 

021432 
021434 
021440 
0214% 
021450 
021456 
021462 
021464 
021470 
0214',^ 
021502 
021506 
021S12 
021514 

021514 
021516 
021522 
0215X 
021532 
021540 
021544 
021546 
321552 



012716 
000002 
012637 
0126i>2 

0050% 
0137% 
012737 
;04400 
016666 
012716 
000002 
01P637 

Olc^a37 
0^.£737 
0137% 
)12746 



012713 
104400 
104400 
104400 
000777 

022626 
012712 

005046 
013746 
012737 
104400 
016666 
012716 
000002 
012637 
012637 
052737 
013746 
012746 
000002 



0050% 
013746 
012737 
104400 
016666 
012716 
000002 
012637 
012662 



H«CYll 27(654) 
'•EST PICK CHECK 

021310 

000034 
000002 



000034 

021336 000034 

000002 000006 
021352 



l-JUL-77 
EmOR 
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SEQ 014H 



6BS: 



000034 
M1214 
000340 
001214 
021402 



000100 
332045 
031576 
030550 



021654 



OC 1.214 



69f: 
70$: 

711: 



TINTF: 



000034 

02 1450 000034 

000002 000006 64S: 
021464 



000034 
001214 

000340 001214 

001214 

021514 



65S: 



66S: 



000034 

021532 000034 

000002 000006 67S: 
021546 



j00034 
000002 



68S: 



HOV 
RTI 
NOV 

nov 

nov 
nov 

TRftP 

nov 
nov 

RTI 

nov 
nov 

BIC 

nov 
nov 

RTI 

nov 

TYPE, 
TYPE, 
TYPE 
BR 



t68S,(SP> 

(SP)+,34 
(SP)+.2(flOINT) 
FOaOWINd REPRESENTS 
-(SP) ; 
34^(SP) ; 

2(SP),6(SP) I 
•701, fSP) 

(SP)+,34 
(SP)+!lTMP6 

•34o,rnp6 

ITnP6,-(SP) 
•71$,-(SP) 



1100, 
nSG6 
MSGl 
CRLF-3 



9CDS 



:; REPLACE OLD PC UlTH NEU 
; RESTORE PSU 

;; RESTORE OLD TRRP VECTOR 

THE EOUrVflLENT OF "BIC 1340, PS" 

SfiVE CURRENT TRAP VECTOR 
SETUP rCH TRAP VECTOT 
PUSH OLD PSU AN PCON STACK 

:; REPLACE OLD PC WITH NEU 
:: RESTORE PSU 

RESTORE OLD TRAP VECTOR 

;;PUT f€U PS ON STACK 
PUT NEM PC ON STACK 
POP NEW PC AND PS 

;SET INTERRUPT ENABLE _ 
-RESTORE CARDS TO THE INPUT HOPPER" 
-PRESS CARD READER 'RESET'" 
nOVE MESSAGE UP ON TTY 
WAIT FOR THE INTERRUPT 



CMP (SP)+. (SP)+ ; RESTORE THE STACK 
NOV tTINT^A. JAOINT iLOAO RETURN POINTER^^^ , ^ 
THE FOLLOMING ftEPRESENT§ THE EQUIVALENT OF "BIS •340,PS- 
-(SP) 
34.-(SP) 
•691,34 



£lr 

NOV 
NOV 
TRAP 
rtOV 
NOV 
RTI 

nov 
nov 

BIS 

nov 
nov 

RTI 



2(SP),6(SP) 
•65S, ISP) 

(SP)+,34 

(SP)+.STnP6 

•340,iTnP6 

STMPt,-(SP) 

•b6S,-(SP} 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
PUSH XD PSU AN PCON STACK 



:; REPLACE OLD PC UITH NEU 
. . RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 



PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 



THE FOLLOUING REPRESENTS THE EQUIVALENT OF "NOV PS,2(ADINT)' 



tLR 

nov 

NOV 

TRAP 

NOV 

nov 

RTI 

nov 
nov 



-(SP) 
34.-(SP) 
«6>$,3M 

2(S.*'),6(SP) 
•bBS.tSP) 

(SP)+,34 
(SP)+ 2(A0INT) 



SAVE CURRENT TRAP VECTOR 
S£TUP NEU TRAP VECTOT 
I -PUSH OLD PSU AN PCON STACK 

" REPLACE OLD PC UITH NEU 

;: RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 



021556 005046 



.THE FOLLOUINd REPRESENTS THE EQUIVALENT OF "BIC •340,PS" 

6lR -(SP) ;; 



1 D 



D2CDB.PH 
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SEQ 0145 



373£ 

3733 

373H 

3735 

3736 

3737 

3738 

373S 

3740 

3741 

3742 

3743 

3744 

3745 

3746 

3747 

3748 

3749 

3750 

3751 

3752 

3753 

3754 

3755 

3756 

3757 

3758 

375q 

3760 

3761 

3762 

3763 

3764 

3' 6L 

3766 

3767 

3768 

3769 

3770 

3771 

1772 

3773 

3774 

3775 

3776 

3777 

3778 

377*} 

3780 

3781 

3782 

3783 

3784 

3795 



021560 
Sl564 
021572 
Cgl574 
021602 
021606 
021610 
^J6^ 

021632 
021636 
Q216M0 
021640 
021644 
021650 
021652 

021654 
021656 
021662 
021664 

02x666 



021670 
021674 
021700 
021704 



021710 
021714 
021720 
021724 
021726 
021732 
021734 
021740 
0217M2 

021744 
021750 



0137% 
012737 
104400 
016666 
012716 
000002 
012637 
012637 
042737 
0137% 
0127% 
000002 

012714 
012715 
005213 
000777 

022626 
022713 
001401 
104004 



000034 
021574 

000002 
021610 

000034 
001214 
000340 
001214 
021640 



177701 
045442 



000300 



021666 000004 



004737 025744 

104400 036104 

104400 031706 

104400 032362 



104400 
104400 
032713 
001775 
032713 
001775 
022713 
001401 
104004 

012714 
012715 



031576 
030550 
010000 

000010 

100210 



177701 
045442 



000034 



001214 





nOV 




nOV 




TKHr 


cos . 

6^: 


MAW 

nuv 




nuv 




DTT 


/Us: 


MfVJ 

nuv 




nuv 




BIC 




MOV 




nuv 




DTT 
fill 


71%: 






MOV 




MOV 




INC 




BR 


TINTFfl: 


CMP 




CMP 




BEQ 




ERROR +4 



34.-(SP) 
•6^,34 

2(SP),6(SP) 
i70S,(SP) 

(SP)+,34 
(SP)+.$TMP6 
I340,4tMP6 
$TMW).-(SP) 
•71$, -(SP) 



1-77. aCDC 
•aUF6EG,9C0fl 
9C05 



(SP)+. CSP)+ 
1000300, 3C0S 
II 



SfiVE CURRENT TR«P VECTOR 
SETUP rCU TRPP VECTOT 
PUSH OLD PSH m PCON STOCK 



:: REPLACE OLD PC UITh NEW 
;; RESTORE PSU 

RESTORE OLD TRAP VECTOR 



PUT NEW PS ON SfflCK 
PUT fCU PC ON STOCK 
POP NEU PC AND PS 



:SET UP COLUMN COUNT 
SET UP BUS RODRESS 
; START READING 
•UAIT FOR AN INTERRUPT 

; RESTORE THE STACK 
CHECH THE CARD READER STATUS 
BRANCH IF OK 

;CARO READER STATUS ERROR 



♦TEST 41 TEST STACK CHECK ERROR 

tST41: SCOPE 

:A STACK CHteCK ERi^OR SHOULD SET BIT 15. BIT 14. AND BIT 12 
THIS ERROR OCCURS WHEN THE FEED HECHA^IISM FMLs TO DELIVER A CARD TO 
ItHE read STATION 



JSR 
TYPE, 

TYPE 
TYPE, 



PC.INIT 
MS638 
MSG3 
MSG9 



T^OPG: 
TLOPGA: 



IS: 



TYPE, 
TYPE 
BIT 
BEQ 
BIT 
BEQ 
CMP 
BEQ 
ERROR +4 

MOV 
MOV 



M5G1 
CRLF-3 
110000, SCDS 
TlOPG 

•10. aCDS 
TLOPGA 
• 100210, 3C0S 
1$ 



•-77. aCDC 
•6UF6eG,SCDA 



TST41 STACK ERROR TEST 
"PRESS CARD READER 'STOP"* 
-SLIDE A CARD FROM THE OUTPUT HOPPER ABOUT 
HALF AN INCH BACK INTO THE READ HEAD 
BLOCKING THE PHOTO CELL 
NOTE: SOME CARD READER MODELS HAY HAVE 
A LARGE ROLLER BLOCKING ACCESS TO THE PHOTOCELL 
IN WHICH CASE. THE PHOTOCELL CAN BE 
BLOCKED BY TEArIHG OFF A PIECE OF CARD 
AND SLIPPING IT IN FRONT OF THE PHOTOCELL 
-PRESS CARD READER * RESET 
MOVE MESSAGE UP ON TTY 
CHECK FOR OF LINE 
UAIT FOR OFF-LINE 
CHECK FOR -TRPNSITION TO ON LINE- 
WAIT FOR IT 

CHECK FOR CORRECT STATUS BITS 
BRANCH IF OK 

; STATUS NOT EQUAL TO 100210 

;SET UP COLUMN COUNT 
■SET UP BUS ADDRESS 



D12 



NfilNOEC - 11 
DZCOe.Pll 



3786 
3787 

m 

37<» 
3791 
3792 
3793 
379S 

31 

3797 

3800 
3001 
3802 
3803 
380M 
380S 
380b 
3807 
3808 
3809 
3810 
3811 
3812 
3813 
381M 
3815 
3ei£» 
3817 
381H 
3819 
3820 
3821 
3822 
3623 
382M 
3825 
3826 
3827 
3828 
3829 
^30 
3831 
3832 

^ 

3835 
3836 
3837 
3836 
3639 



02 
02 

02 
02 



75M 
756 

766 
770 



021772 
02 1774 
021776 

022000 



022010 
022014 

022016 
022024 
022026 

022030 
02203" 
022036 



DZCD8-8 
T41 

005213 
105713 

m 

001001 
104043 

005713 
100401 
104026 

032713 

005777 
100005 

032777 
001001 
104046 

032713 
001401 
104015 
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SEQ Ql^b 



010000 



040000 

157224 
OIUOOO 

027577 



022040 012712 022270 



022044 
{£2046 
0220S2 

oiio62 

022070 
022074 
022076 
022132 
G22106 
022114 
022120 
022124 
022126 

022126 
022130 
022134 
022142 
022144 
G22152 
022156 
022160 
022164 



005046 
013746 
012737 
104400 
016666 
012716 
000002 
012637 
012637 
052737 
013746 
012746 
000002 



0C5046 
013746 
012737 
104400 
016666 
012716 
000002 
012637 
012662 



000034 
022062 

000002 
022076 

000034 
001214 
000340 
001214 
022126 



000034 
022144 

000002 
02216C 

000034 
000002 



TLOPGB: 



IS: 



2S: 



3S: 



157214 



000034 
000006 

001214 



000034 
000006 



4S: 



5S: 



64S: 



65S: 



66S: 



67$: 



68S: 



INC 
TSTB 



9C05 
3CDS 
TLOPGB 
)IT •10000,9CD5 
BNE IS 
ERROR +43 

T5T aCDS 
Bni 2S 
ERROR +26 

BIT 140000, aCDS 
IrIoR +35* 



TST 
BPL 



aCDOB 
4S 



BIT ilOOOO.aCODB 
BNE 4S 
ERROR +46 

BIT 1027577,3003 
BEQ 5S 
ERROR +15 



READ 

C«CK CONTROuLER READY 
HAIT FOR CONTROLLER READY 
CHECK fflTl2 
BRANCH IF SET 

;OFF-LINE (BIT 12) UASN'T SET 

: CHECK SPECIAL CONDITION BIT 
; BRANCH IF SET 

; SPECIAL CONDITION NOT SET 

; CHECK FOR CARD READER ERROR 
BRANCH IF SET 

;CPft READER ERROR BIT 14 NOT SET 

TEST BIT15 OF STATUS REGISTER i2 

BRANCH IF NOT SET INDICATING 

OLD CDll CONTROLLER 

IS STACK CHECK INDICATOR SET' 

BRANCH IF SET 

STACK CHECK BIT12 NOT SET 

CHECK FOR EXTRA BITS 
BRANCH IF OK 

; STATUS UORD ERROR 



MOV ITINTG, 3A0INT :LOAO RETURN POINTER 
:THE FOLLOWING REPRESENTS THE EQUIVALENT OF "BIS 1340,^5" 



tLR 
NOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 
BIS 
MOV 
MOV 
RTI 



-(SP) 
34, -(SP) 
•64S,34 

2(SP),6(SP) 
•65S,(5P) 

(SP)+,34 

(5P)+.$TMP6 

•340.iTMP6 

JTMPt,-(SP) 

•66S,-(SP) 



SAVE CURRENT TRAP VECTOR 
; SETUP NEW TRAP VECTOT 
••PUSH OLD PSW AN PCON STACK 

:; REPLACE OLD PC WITH NEW 
; {RESTORE PSW 

;; RESTORE OLD TRAP VECTOR 



PUT NEW PS ON STACK 
PUT NCU PC OH STACK 
POP NEW PC AND PS 



THE FOLLOWING REPRESENTS THE EQUIVALENT OF "MOV P5,2(fiOINT)' 



dLR 
MOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 



(SP) 
34. -(SP) 
•6?$, 34 

2(SP).6(SP) 
•68S,t5P) 



SAVE CURRENT TRAP VECTOR 
SETUP NEW TRAP VECTOT 
;iPUSH OLD PSW AN PCON STACK 

" : {REPLACE OLD PC WITH NEW 

;; RESTORE PSW 

; {RESTORE OLD TRAP VECTOR 



022170 005046 



(SP)+,34 
(SP)+.2(A0INT) 
:THE FOLLOWIN& REPRESENTS THE EQUIVALENT OF 
6lR -(SP) 



•BIC 1340, PS" 



El£ 



t1ftI^C)EC - 
DZCDB-PU 



11 



3856 
385S 
3Bf>0 
3861 
3662 
3863 
386M 
38Es5 
3866 
3867 
3868 
3669 
3870 
3671 
3872 
3873 
3874 
3675 
3876 
3877 
3876 
387S 
3880 
3881 
3862 
3863 
368M 
3685 
3686 
3887 
3888 
386S 
36% 
38«31 
38<J2 
3693 



022172 
022176 



022214 

^§2 
022226 
022232 
(5S240 
022244 

022252 
022256 
022262 
022266 

022270 
022272 

022276 
022300 
022304 
022312 
022314 
022322 
022326 
022330 
022334 
022340 
022346 
022352 
022356 
022360 

022360 
022362 
022366 
022374 
022376 
022404 
022410 
022412 
022416 

022422 
022424 
022430 
022436 
022440 
022446 
022452 
022454 



DZCOe-B 
T41 

0137% 
012737 
104400 
016666 
012716 



012637 
012637 
042737 
013746 
012746 
000002 

012713 
104400 
104400 
000777 

022626 
012712 

00504L 
013746 
012737 
104400 
016666 
012716 
000002 
G12637 
012637 
052737 
013746 
012746 
000002 



005046 
013746 
012737 
104400 
016666 
012716 
000002 
012637 
012662 

005046 
013746 
012737 
104400 
016666 
012716 
000002 
012^7 
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06:39 PACE 75 



SEO Oi'*^ 



000034 
022206 

000002 
022222 

000034 
001214 
000340 
001214 
022252 



000100 
031576 
030550 



022520 



000034 
022314 

000002 
022330 

000034 
001214 
000340 
001214 
022360 



000034 
022376 

000002 
022412 

000034 
000002 



000034 
022440 

000002 
022454 

000034 



000034 
000006 

001214 



69S: 
70S: 

715: 

TINTG: 



000034 
000006 

001214 



000034 
000006 



64S: 
&5S: 

&6S: 

67 J: 

68S: 



000034 
000006 



69S: 
70$: 



nov 
nov 

TRAP 

nov 
nov 

RTI 

nov 
nov 
BIO 
nov 
nov 

RTI 

nov 

TYPE, 
TYPE, 
BR 

cnp 
nov 



34. -(SP) 
t69S,34 

2(SP),b(SP) 
i70J,(SP) 

(SP)+,34 

(SP)+.$TnPb 

l340.tTnP6 

STnp6,-(SP) 

i71$,-(5P) 



1100, 

nsGi 

CRLF-3 



SC05 



;;SAVE CLWRENT TRAP VECTOR 

;; SETUP NEW TRAP VECTOT 

; I PUSH OLD PSU AN PCON STACK 

:; REPLACE OLD PC WITH NEW 
;; RESTORE P5W 

;; RESTORE OLD TRAP VECTOR 



PUT NFU PS ON STACK 
PUT NEW PC ON STACK 
POP NEU PC AND PS 



;SET INTERRUPT ENABLE 
-PRESS CARD READER 'RESET' 
MOVE HESSAGE UP ON TfY 
UAIT FOR THE INTERRUPT 



(SP)+. {SP)+ ;RESTORE THE STACK 
iTINTtA.aflOiNT :L0AP RETURN POINT|R 



THE FOLLOWING tePRESENT§ THE EQUIVALENT OF -6IS 1340, PS" 



tin 
nov 
nov 

TRAP 

nov 
nov 

RTI 

nov 
nov 

615 

nov 
nov 

RTI 

:THE 
tLR 

nov 
nov 

TRAP 

nov 
nov 

RTI 

nov 
nov 

:THE 

CLR 

hOV 

nov 

TRAP 

nov 

MOV 
RTI 

nov 



-(SP) 
34. -(SP) 
•6^1,34 

2(SP).6(SP) 
i65S.{SP) 

(SP)+,34 

(SP)+IlTMP6 

l340,iTnP6 

$TnP6,-(SP) 

I66S,-(SP) 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOl 
; I PUSH OLD PSU Jm PCON STACK 

:; REPLACE OLD PC WITH NEU 
RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 

; PUT NEW PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 



FOLLOUING REPRESENTS THE EQUIVALENT OF "nOV PS,2(ADINT)' 
-(SP) 

34^- (SP) 1 1 SAVE CURRENT TRAP VECTOR 

i6?J,34 SETUP NEU TRAP VECTOT 

PUSH OLD PSU AN PCON STACK 



2(SP),6(SP) 
•68S,fSP) 



:: REPLACE OLD PC HITH .€U 
RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 



(SP)+,34 
(SP)+.2{ADINT) 
FOLLOWING REPRESENTS THE EQUIVALENT OF "BIC »340,PS" 

34?- (SP) ; I SAVE CURRENT TRAP VECTOR 

»6^5,34 SETUP NEU TRAP VECTOT 

PUSH OLD PSU AN PCON STACK 



2(SP),6(SP) 

i ^ •* -mil / 

(SP)+,34 



:; REPLACE OLD PC WITH NEW 
RESTORE PSW 

:; RESTORE OLD TRAP VECTOR 



fiflifcec - 11 

OZCDB.PU 




389«3 022504 




3907 
3908 
3S0<) 
3910 
3S11 
3912 
3913 
3914 
3915 
3916 
3917 
3918 
3919 
3920 
3921 
3922 
3923 
3924 
3925 
392b 
3927 
392B 
3929 
3930 
3931 
3932 

3936 
3937 
3938 
3939 
3940 
0941 
3942 
J943 
3944 
3945 
3946 
3947 



022526 
022530 

022532 



ozcoe-B 

T41 

012b37 
042737 

13.46 



012714 
012715 
005213 
000777 

811^ 

001401 
104004 
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Fia 



S£0 DIHC 



022532 
022536 
022540 

022544 



022544 
02254b 
022552 
022556 

^flbb 
022572 
02257b 

022600 
022b04 
Qi^Ob 
022612 
022blb 
022b22 
022b2b 



022b30 
02^634 
022b3b 



001214 
000340 
W1214 
022504 



177701 
04544c 



000300 



005737 001266 
001402 

000137 023256 



000004 
004737 
10"400 
1C4400 
104400 
104400 
13U4C0 
000000 

032713 
001775 
104400 
104400 
104400 
004737 
000000 



032713 
001401 
104047 



025744 
036140 
033506 
031576 
031632 
030550 



OOUOlO 

033552 
031632 
030550 
025744 



020000 



001214 



71$: 



TINTGfl: 



nov 

BIC 
MOV 

nov 

RTI 

nov 
nov 

INC 
BR 



(SP)+.$TnP6 
•340,tTHP6 
STnP6,-(SP) 
•71$,-(5Pi 



•-77. aCDC 
tBUFBEG,SCDP 
9C0S 



CMP (SPH. (SPH 
CnP 1000360,3005 
BEQ IS 
ERROR ^4 



;PUT NEU PS ON STftCK 
PUT NEW PC ON STACK 
I POP NEU PC RND PS 

;SET UP COLUMN COUNT 

SET UP BUS ADORESS 

START READING 
I WAIT FOR AN INTERRUPT 

icHECH'^HE"^Aio''SEADER STATUS 
; BRANCH IF OK 

;CARD READER STATUS ERROR 



IS: 

ON M-lOOO/M-200 BIT 13 IS ALUAYS CLEARED 

ON M-1200 IF END OF FILE BUTTON IS PRESSED WITH INPUT 

HOPPER LOADED THEN WHEN INPUT HOPPER BECOMES EMPTY 

HOPPER CHECK INDICATOR LIGHT COMES ON AND BITS 

13 14 AND 15 ARE SET 



TST 
BEQ 
JMP 



CDIOOO 
TSTH12 
TSTMIO 



; IS READER M1000/M200' 
BRANCH IF READER IS M-1200 
OUT OF THIS TEST IF M1000/M200 



TSTM12: 

«TEST 42 TEST 'END OF FILE' AND HOPPER CHECK 

.»»»«««««««««»«««»««»««»««»«»»»«««»««««»«««««««««««««««««««««««« 

tST42: SCOPE 



IS: 



JSR 
TYPE, 
TYPE 
TYPE, 
TYPE, 
TYPE, 
HALT 

BIT 

BEQ 

TYPE, 

TYPE, 

TYPE 

JSR 

HALT 



BIT 
BEQ 
ERROR 



MS639 

MSG20 

MSGl 

MSG2 

CRLF-3 



•10, 
IS 

MSG21 
MSG2 
CRLF-3 
PC, 



INIT 



acos 



INIT 



•20000, aCDS 
2S 
♦47 



TST42 EOF & HOPPER CHECK 

"PUT ANY TWO CARDS IN INPUT HOPPER" 

-PRESS CARD READER ' RESET - 

"THEN HIT 'CONTINUE' ON THE CONSOLE" 

MOVE MESSAGE UP ON Tl f 



CHECK FOR TRANSITION TO ON LINE 
WAIT FOR IT 

"PRESS END OF FILE BUTTON" 

"THEN HIT 'CONTINUE' ON THE CONSOLE" 

MOVE MESSAGE UP ON TTY 



; CHECK BIT 13 
BRANCH IF NOT SET 

;EOF SET FROM BEGINNING 



r- 1 D 



ftt.Noec - 11 

DZCDB.PU 
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T42 TEST 'END OF FILE' fiND HOPPER CHECK 



Gl 



5EQ 014<9 



3SM8 

W5 022640 032713 040000 

3950 022b44 001401 

0226% 104050 



3953 
3954 



3957 

3961 
3962 
3%3 
3964 

^ 
3967 
3%8 
3%9 
3970 
3971 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3980 
3981 
3982 
3083 
3984 
3985 

m 

3988 
3989 
3990 
3991 
3992 
3993 
3994 
3995 
39% 
3997 
3998 
3999 
4CO0 
4001 



022650 032713 000004 

m mi 



?60 005713 
^2 100001 
i64 104014 



022666 
022672 




022754 
022756 
022762 

m 

023000 



023012 

023016 
023020 
023024 
023032 
023034 
023042 
023046 
023050 
023054 



012712 023120 



005046 
013746 
012737 
104400 
016666 
012716 
000002 
012637 
012637 
052737 
0i3746 
012746 
000002 



005046 
013746 
012737 
104400 
016666 
012716 
000002 
012637 
012662 

005046 
013746 
012737 
104400 
016666 
012716 
000002 
012637 
012637 



000034 
022710 

000002 
022724 

000034 
001214 
000340 
001214 
022754 



000034 
022772 

000002 
023006 

000034 
000002 



000034 
023034 

000002 
023050 

000034 
001214 



2S: 



3S: 



4$: 



000034 
000006 

001214 



000034 
000006 



5S: 

SECN: 



64S: 
65S: 

bbS: 

67S: 
68S: 



000034 
000006 



69S: 
70$: 



BIT t40000, aCDS 
BEQ 3S 
ERROR +50 



BIT #4, 
BEQ 4S 
ERROR -^51 

TST aCDS 
8PL 5S 
ERROR *IH 



3CDS 



; CHECK BIT 14 
;BRftNCH IF NOT SET 

; READER CHECK ERROR SET FROn BEGINNING 

; CHECK BIT 2 
;8RflNCH IF NOT SET 

;HOPPER CHECK SET FROM BEGINNING 

; CHECK ERROR BIT 
BRANCH IF NOT SET 

; ERROR SET FRON BEGINNING 



MOV 



tTINTI, aODINT ;LOflD RETURN POINTER 



THE FOLLOUING REPRESENTS THE EQUIVALENT OF "BiS 1340, PS" 



6lr 

MOV 

MOV 

TRAP 

MOV 

MOV 

RTI 

MOV 

MOV 

BIS 

MOV 

MOV 

RTI 

:THE 

5lr 

MOV 

MOV 

TRAP 

MOV 

MOV 

RTI 

MOV 

MOV 

:THE 

CLR 

MOV 

MOV 

TRAP 

MOV 

MOV 

RTI 

MOV 

MOV 



-(SP) 
34,-(SP) 
I64S,34 

2(SP),6(SP) 
•65S,!SP) 

(SP)+,34 
rSP)+.JTHP6 
•340.ITMP6 
JTMPfe,-(SP) 
i66S,-(SP) 

FOLLOUING REPRESENTS 
-(SP) 
34. -(SP) 
I6H,34 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
•PUSH OLD PSU AN PCON STACK 

' :;REPLACE OLD PC UITH NEU 

; RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 

:PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
1 POP NEU PC AND PS 

THE EQUIVALENT OF "MOV PS, 2 (AD INT)' 



2(SP),6(SP) 
«68S,tSP) 



t i 

M • 

» I 

I f 



(SP)+,34 
(SP)+.2(ADINT) 
F0LL0HIN6 REPRESENTS 
-(SP) 
34 -(SP) 
•6^S,34 



2(SP),6(SP) 
•70S,(SP) 

(SP)+,34 
(SP)+,5TMPb 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
PUSH OLD PSU AN PCON STACK 

REPLACE OLD PC UITH NEU 
RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 

THE EQUIVALENT OF "BIC 1340, PS" 

SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP Vf^CTOT 
PUSH OLD PSU AN PCON STACK 

:; REPLACE OLD PC UITH NEU 
RESTORE PSU 

RESTORE OLD TRAP VECTOR 



nfilNOEC - 11 
OZCOB.PU 



4C02 

M003 

400H 

4Q0S 

HOOb 

4007 

4008 

400S 

4010 

4011 

4013 

4013 

4014 

4015 

401b 

4017 

^018 

401S 

4020 

4021 

4022 

4023 

4024 

4025 

402b 

4027 

4028 

402«3 

4030 

4031 

4032 

4033 

4034 

4035 

"03fr 

4037 

4038 

40.iq 

4040 

4041 

4042 

4043 

4044 

'1045 

^04b 

-<|Q47 

4048 

4043 

4050 

4051 

40E2 

4053 

4054 

4055 



023060 
02306b 
023072 

023100 
023 i 04 
023110 
023114 
02311b 



DZCOe-B 
T42 

0M2737 
01374b 
01274b 
000002 

012713 
012714 
012715 
005213 
000777 



flflCYll 27(b54) l-JUL-77 06:39 TAGE 78 
TEST 'EMO OF FILE' «C HOPPER CHECK 



0003MO 001214 

001214 

023100 



000100 
177701 
0H5442 



71$: 



BIG 
flOV 

no" 

RTI 
MOV 

nov 

MOV 
INC 
BR 



•340, STMPb 
lTMPb,-(SP) 
•711, -(SP) 



•100, aCDS 
•-77! aCDC 
•BUFBEG.aCDA 
3CDS 



023120 


02262b 




TINT!: 


CMP 


(SP)+, 


(SP) + 


023122 
02312b 
023130 


032713 
001401 
104047 


020000 




BIT 
BEQ 
ERROR 


•20000, 
IS 
+47 


acDS 


023132 
0<f313b 
023 14U 


032713 
001401 
104050 


040000 


IS: 


BIT 
BEQ 
ERROR 


•40000, 
2S 

+50 


acDS 


023142 
023144 
02314b 


005713 
100001 
104014 




2S: 


TST 
BPL 
ERROR 


3C0S 
3S 
+14 




023150 
023134 
02315b 


012712 
000646 
022626 


023156 


3S: 

TINTIfi: 


MOV 

BR 

CMP 


•TINTIfl.aflDINT 
SECN 

(SP)+, (SP)+ 


023 IbO 
023 lb4 
0231bb 


032713 
001001 
104052 


020000 




BIT 
BfiE 
ERROR 


•20000, 
IS 
+52 


acDS 


023170 
023174 
02317b 


032713 
001001 
104053 


040000 


IS: 


BIT 
BNE 
ERROR 


•40000, 
2S 
+53 


acDS 


023200 
023204 
02320b 


032713 
001001 
I0"054 


000004 


2S: 


BIT 
BNE 
ERROR 


•4, 
3S 

+54 


3CDS 


023210 
023212 
023214 


0057] 3 
100401 
104026 




3S: 


TST 
BMI 
ERROR 


acDS 

4S 

+26 




U232lb 
023222 
553226 
023232 
023236 


104400 
104400 
104400 
104400 
000000 


032045 
031576 
031632 
030350 


4S: 


TYPE, 
TYPE, 
TYPE, 
TYPE, 
HALT 


MSGb 
MSGl 
nSG2 
CRLF-3 




023240 


032713 


000010 


5S: 


BIT 


•10, 


acDS 



SEQ 0150 



PUT NEW PS ON STOCK 
PUT NEU PC Ot* STACK 
POP NEU PC AND PS 

SET INTERRUPT ENABLE 
SET UP COLUMN COUNT 
SET UP BUS ADDRESS 
START READER 
WAIT FOR AN INTERRUPT 



; RESTORE THE STACK 

; CHECK BIT 13 
BRANCH IF NOT SET 

;EOF SET AT END OF ONE CARD 

; CHECK BIT 14 

; BRANCH IggJOT^SET^^^ ^^^^^ ^^^^ 

; CHECK ERROR BIT 
BRANCH IF NOT SET 

; ERROR SET AT END OF ONE CARD 

:LOflO RETURN POINTER 
READ SECOND CARD 
•RESTORE THE STACK 

: CHECK BIT 13 
BRANCH IF SET 

• ;EOF NOT SET AT END OF FILE 

; CHECK BIT 14 
'BRANCH IF SET 

; READER CHECK NOT SET AT END OF FILE 

: CHECK BIT 2 
' BRANCH IF ^ET 

; HOPPER CHECK NOT SET UHEN HOPPIR EMPTY 

; CHECK ERROR BIT 

; BRANCH IF^SET ^^^^ 

"RESTORE CARDS TO THE INPUT HOPPER" 
"PRESS CARD READER 'RESET'" 
"THEN HIT CONTINUE ON THE CONSOLE" 
MOVE MESSAGE UP ON TTY 



: CHECK TRANSITION TO ON LINE 



MftlNOEC - n - D2C0B-B fWCYll 27(£,5H) l-JUL-77 08:3<3 Pf.GE 7<3 
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112 



SEQ QiSi 



40se 

H0S9 

38? 

4062 
40b3 

40b^ 

48^ 
4Qb<3 
4070 
4071 
4072 
4073 
4074 
4075 
4Q7b 
4077 

487? 
4060 
4081 

4065 
4066 
4067 
4068 

4091 
40S2 
4093 
4Q«J4 
4095 
4096 
4097 
4098 
4099 
4100 
4101 
4102 
4103 
4104 
4105 
4106 
41Q7 
4108 
4109 



023244 001775 




023260 
]32b4 
§3270 




023330 
023334 
023340 

Q|3344 
023346 
023352 
023354 

m 

023362 

023364 
023370 
023372 

02337M 
023400 

023402 
023410 
023412 



032713 020000 



000004 



004737 025744 
104400 036174 
104400 032706 



104400 
104400 
032713 
001775 
032713 
001775 
^22713 
001401 
104004 

012714 
012715 
005213 
105713 
100376 
032713 
001001 
104043 

005713 
100401 
104026 

032713 
001001 
104053 

005777 
100005 

032777 
001001 
104056 



031576 
030550 
010000 

000010 

140210 



177701 
045442 



010000 



BEQ 



5S 



;UfiIT FOR IT 



BIT taOOOO, 3CD5 
BEQ TSTMIO 
ERROR -^55 



;CHECK BIT 13 
BRANCH IF NOT SET 

;EOF DIDN'T CLEftP BY TRANSITION TO ON LINE 



TSTMIO: 

«TEST 43 TEST READ CHECK ERROR 

tST43: SCOPE 

;A READ CHECK ERROR SHOULD SET BIT 15. BIT 14. AND BIT 12 
:THIS ERROR OCCURS WHEN THE READ ELECTRONICS In THE CARD 
READER DISAGREES UITH THE NORMAL UNPUNCHED AREA OF THE CARD 



TLOPH: 
TLOPHA: 



IS: 



JSR 
TYPE, 
TYPE I 

TYPE, 
TYPE 
BIT 
BEQ 
BIT 
BEQ 
CMP 
BEQ 

ERROR -»-4 



PC.INIT 
MS&40 
MSG12 

MSGl 
CRLF-3 
110000, aCDS 
TLOPH 

•10. acos 

TLOPHA 
1140210,3005 
IS 



MOV 
MOV 

hiC 

TLOPHB: TSTB 
aPL 
BIT 
BNE 



•-77. aCDC 

»BUFBt:G,3CDA 

3CDS 

3CDS 

TLOPHB 

«10000,3CDS 

IS 



040000 
155640 

040000 155630 



IS: 
2S: 
3S: 



ERROR +43 

TST acos 

BMI 2S 
ERROR +26 

BIT ^40000, 3CD5 
BNE 3S 
ERROR +53 



TST 
EPL 



3CD0B 
4S 



BIT •40000,30006 
BNE 4S 
ERROR +56 



TST43 DARK-LIGHT CHECK 

"PLACE SPECIAL DARK LIGHT CHECK CARD ONLY 

AT THE FRONT OF THE INPUT STACK" 

"PRESS CARD READER 'RESET'" 

MOVE MESSAGE UP ON TTY 

CHECK FOR OF LINE 

WAIT FOR OFF-LINE 

CHECK FOR "TRANSITION TO ON LINE" 

WAIT FOR IT 

CHECK FOR CORRECT STATUS BITS 
BRANCH IF OK 

; STATUS NOT EQUAL TO 140210 

SET UP COLUMN COUNT 
SET UP BUS ADDRESS 
READ 

CHECK CONTROLLER HEADY 
MAIT FOR CONTROLLER READY 
CHECK BIT12 
BRANCH IF SET 

;0FF-LINE (BIT 12) WASN'T SET 

: CHECK SPECIAL CONDITION BIT 
BRANCH IF SET 

; SPECIAL CONDITION NOT SET 

; CHECK FOR CARD READER ERROR 
BRANCH IF SET 

;CARD READER ERROR BIT 14 NOT SET 

:TEST BIT15 OF STATUS REGISTER ^2 

BRANCH IF NOT SET INDICATING 
;OLD con CONTROLLER 

IS READ CHECK INDICATOR SET' 
; BRANCH IF SET 
;READ CHECK BITi4 NOT SET 



023414 032713 027577 



4S: 



BIT 



•027577,3005 : CHECK FOR EXTRA BITS 



Jl 



OZCOR.PU 



11 - DZCOe-B 
1H3 



4110 
4111 
4] 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4, 
4 
4, 
4, 



4128 
Hi?S 
4130 
4131 
4132 
4133 
4134 
4135 
413b 
4137 
4136 
4l3q 
4140 
4141 
4142 
4143 
4144 
4145 
414b 
4147 
4148 
414'? 
4150 
4151 
4152 
4153 
4154 
4155 
4lSb 
4157 
4158 
41?9 
'nf)0 
41bl 
41b2 

HlbJ 



023N20 
023M22 




15 

14 
15 
lb 
17 
18 
IS 
20 

h 

23 



2b 0235 



m 

0C34b0 
023H6b 

023502 



023520 
023524 

023530 
023534 
023540 
023544 

023550 
023554 
023G% 
0235b2 
0235b4 
023570 
023572 

023574 
023b00 
023b04 

023b0b 
023b 10 
023b 12 
D23blb 
023b20 

023b22 
023C>2b 

U23b32 
023834 
023b40 
023b4b 
023850 
023b5b 



001401 
104015 

m 

105777 

m 

042737 
104400 

123727 

104400 
000742 



104400 
104400 

104400 
104400 
104400 
104400 

032713 
001775 
032713 
001775 
022713 
001401 
104004 

012714 
012715 
005213 

105713 
10037b 
032713 
001001 
104043 

104400 
012712 

00504b 
01374b 
012737 
104400 
Olbbbb 
01271b 



n«CYll 27(b54) 1-JUL 
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SEQ 0152 



035373 
15550b 

155502 001202 
15547b 

001202 155470 
177b00 001202 
030550 

001202 00011b 
001202 000131 
032570 



03b22b 
034745 

030553 
0350b4 
03157b 
030550 

010000 

000010 

140210 



177701 
045442 



Q 10000 



03523b 
0240b4 



000034 
023b50 

000002 
023bb4 



AGAIN: 
UAITA: 



UAITB: 



5S: 



TLOPHC: 
TLOPHD: 



IS: 



TLOPHE: 



IS: 

BYPASS- 



BEQ AGAIN 

ERROR +15 

TYPE, MSG30 

TSTB aSTKS 

BPL UAI^^A 

MOVB aSTKB.STNPl 

TSTB aSTPS 

BPL UAITB 

MOVB STMPl.aSTPB 

BIC il77b60,$Tf*I 

TYPE, CRLF-3 

CMPB STMPl.illb 

BEQ BYPASS 

CI^B STMPl.llSl 

BEQ 5S 

TYPE, nSGlO 

BR AGAIN 



f1SG41 
NSG2b 



TYPE, 
TYPE, 

TYPE, 
TYPE, 
TYPE, 
TYPE I 

^IT 
BEQ 
BIT 
BEQ 
CMP 
BEQ 

ERROR +4 

MOV 
MOV 
INC 

TSTB 
BPL 
BIT 
BNE 

ERROR +43 
TYP£,MSG2B 



CRLF 
MSG27 
MSGl 
CRLF-3 

il00O0,3CDS 
TLOPHC 

iio.acos 

TLOf»HD 
•140210, 3C0S 
IS 



l-77.aCDC 
«BUF6EG,ftlCDA 
3CD5 

3CDS 
TLOPHE 
ilOOOO.aCDS 
1$ 



BRANCH IF OK 

; STATUS UORD ERROR 
IS CARD READER RS-1200 
TEST TTY FOR READY 
IF NOT ^AQY WAIT 
MOVE CHARACTER IN 
TEST TTY FOR DONE 
WAIT IF NOT READY 
ECHO CHARACTER 
CLEAN JUNK OFF BYTE 

TEST FOR N 

SKIP TEST IF NO 

TEST FOR Y 

BRAiiCH IF YES 

URONG RESPONSE TRY AGAIN 

CHARACTER WAS NOT Y OR N 

REPEAT QUESTION AGAIN 

TST43A MIS-REGISTERED CARD TEST 
TEST FOR VISUAL VERIFICATION OF 
READ CHECK LIGHT 

; PLACE CARD INTO HOPPER 



:UAIT FOR OFF-LINE 
UAIT FOR OFF-LINE 
•CHECK FOR TRANSITION TO ON LINE 

; CHECK FOR CORRECT STATUS BITS 
BRANCH IF OK 

; STATUS NOT EQUAL 140210 

:SET UP COLUMN COUNT 
•SET UP BUS ADDRESS 



MOV ' iTINTH.aADINT :LOAD RETURN POINTER 
:THE FOLLOUING REPRESENTS 



000034 
OQOOOb b4S: 



tLR 
MOV 
MOV 
TRAP 
MOV 
MOV 



-(SP) 
24, -(SP) 
Ib4s,34 

2(SP),b(SP) 
»b5S,(5P) 



: CHECK READ CHECK LIGHT 
OAD RETURN POINTER 
THE EQUIVALENT OF "BIS 1340, PS" 

•SAVE CURRENT TRAP VECTOR 
SETUP NEW TRAP VECTOT 
I PUSH OLD PSW AN PCON STACK 

' ;; REPLACE OLD PC WITH NEW 



"WIMOEC - 11 
DZCDe.Pll 



MltH 
4165 
41b& 
41b7 
Ml 
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SEQ 01S3 



HIM 
4170 



4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 

41% 
S7 
41<J8 
419S 
4800 
4201 



68 
8S 
SO 
91 
92 
93 



4204 
420S 
42% 
4207 
420Q 
42C9 
4210 
4211 
4212 
4213 
4£I4 
4215 
M2lb 
4217 



000002 

012637 000034 





023714 

023714 
02371b 

m 

|7H0 
3744 
'37% 
'3752 

023756 
023760 
02376': 

024002 
024006 
024010 

024026 

m 

024040 
024Q40 
024044 
024050 
024054 
024060 
024062 
02M06H 
Q24066 
024070 
02MU74 



0127'I6 023714 
000002 



005046 

01 37^5 
012737 
10H40C 
016666 

m 

012637 
012662 

005046 
013746 
012737 
10M400 
016666 
012716 
000002 
012637 
012637 
042737 
013746 
012746 
000002 

012713 
104400 
104400 
104400 
000777 
000000 
022626 
00C004 
104400 
000137 



000034 
023732 

000002 
023746 

U00034 
000002 



00U034 
023774 

000002 
024010 

000034 
001214 
000340 
0Q1214 
024040 



000100 
03-145 
03bJ06 
030550 



001222 
016134 



024100 

024100 012706 001100 
024104 005026 



65S: 



001214 



66S: 

000034 
000006 67S: 

6eS: 

00003W 
000006 69S: 



001214 



70$: 



71$: 



TINTH: 



RTI 

nov 
nov 

BIS 
MOV 
NOV 
RTI 

:THE 
tlR 
MOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 
[THE 
CLR 
MOV 
MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 
BIC 
MOV 
MOV 
RTI 

MOV 

TYPE, 

TYPE, 

TYPE, 

BR 

HALT 

CMP 

SCOPE 

TYPE, 

JMP 



(SP)+,34 
(SP)-»-.$TMP6 
•340.4THP6 
$TMP6,-(SP) 
•661, -(SP) 



RESTORE PSW 

RESTORE OLD fRAF 



;PUT «U PS ON STACK 
;PUT NEW PC ON STACK 
: POP NEU PC AND PS 



VECTOR 



FOLLOWING REPRESENTS 
-(SP) 
34 -(SP) 
•6^1.34 



2(SP),6(SP) 
168$, ISP) 



(SPj+,34 
(SP)+!2(ADINT) 
FOLLOWINd REPRESENTS 
-(SP) 
34. -(SP) 
16^$, 34 



2(SP),6(SP) 
170$, I SP) 

(SP)+,34 
(SP)+^$TMP6 
t340,4TMP6 
$TMP6,-(SP) 
171$, -(SP) 



ilOO, 

MSG6 

MSG29 

CRLF-3 



aCDS 



THE EQUIVALENT OF "MOV PS,2(fiDINT)' 

SAVE CURRENT TRAP VECTOR 
SETUP NEW TRAP VECTOT 
PUSH OLD PSU AN PCON STACK 

:; REPLACE OLD PC WITH NEW 
RESTORE PSW 

;; RESTORE OLD TRAP VECTOR 

THE EQUIVALENT OF "BIC 1340, PS" 

SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
PUSH OLD PSU AN PCON STACK 

:: REPLACE OLD PC WITH NEW 
RESTORE PSW 

RESTORE OLD TRAP VECTOR 



PUT NEW PS ON STACK 
PUT NEW PC ON STACK 
POP NEW PC ANO PS 



jSET INTERRUPT ENABLE 
"RESTORE CARDS TO THE INPUT HOPPER" 
"PRESS CARD READER 'RESET'" 
MOVE MESSAGE UP ON TTY 
WAIT FOR AN INTERRUPT 



(SP)+, (SP)+ ; RESTORE THE STACK 



$BELL 
ERi2CD 



;RING-A-DING 

•LOOP BACK TO THE BEGINNING 



ROUTINE TO LOOP THRU A SINGLE INSTRUCTION TEST OR ERROR FUNCTION TEST 
NOTE THAT SWll MUST BE DOWN AFTER 2ND HALT 

NOTE THAT SW<i4> MUST BE SET MUST BE SET MUST BE SET 

TESTX: 

MOV •$CMTAG,R6 : -.FIRST LOCATION TO BE CLEARED 
CLR (R6)+ CLEAR MEMORY LOCATION 



LIS 



flMlNOEC - 11 

Dzcoe.pu 



02CDB-B 



W218 
4219 




4 

H__ 

4227 
4226 
4229 
4230 
4231 
4232 
4233 
4234 
423S 

4237 
4238 
4239 
4240 

4241 
4242 
4243 
4244 
4245 
42Mfe 
4247 
42MB 
4249 
4250 

4253 
SgSH 
4255 
4256 
4257 
4258 
4259 
42fa0 
42? 1 
42b2 
4263 
42b4 
42b5 
42bb 
42b7 
42b8 
42b9 
4270 
4271 



02410b 
02M112 

142 

024 IbM 
024172 
024200 

8rJi?l 

024220 
02422b 
024234 
024242 
g24|44 

0242b0 
024|b2 
0242bb 
024274 
024300 
02430b 
524312 
02431b 
024324 

024340 
02434b 
024350 
024354 



024370 
024372 

m 

024412 
024414 
024422 

024424 
02442b 
024432 
02H440 
02M442 



022706 
001374 

lit 




112737 
012737 
012737 
012737 
00504b 
01274b 
QOOOQb 
012737 
000402 
0b270b 
012737 
005037 
012737 
01374b 
01374b 
012737 
005777 
000407 
012737 
012737 
Q22b2b 
0l2b37 
012b37 
004737 
104400 



000000 
017737 
0b2737 
104'-'00 

000000 
032777 
001432 

00504b 
0137Hb 
012737 
10H400 
Olbbbb 
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LOOP OM TEST ROUTINE 



08:39 PAGE 82 



00112b 



^ >15l 
000340 

'S3 

027430 
000340 
014774 
001220 
015140 
000340 
000002 
0242b2 



024252 

OOOCOb 

000010 
000012 
OlSlMb 
024300 
000004 
00000b 
024332 
154b0b 

00017b 
000174 

00000b 
000004 
0453bb 
034223 



154540 



000034 
024442 

000002 



000020 

000032 
000034 
00003b 
000024 
00002b 
0147bb 

000014 
0000 lb 
015140 
000010 



015140 b4S: 
bSS: 

000010 bbS: 



001 10b 
000004 



001136 b7J: 
001140 



024b22 
024b22 



010000 154514 



bSS: 



000034 
00000b b9S: 



cnp 

BNE 

:iov 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

HOV 

MOV 

MOV 

MOV 

CLR 

HOV 

RTT 

HOV 

BR 

ADO 

MOV 

CLR 

MOV 

MOV 

MOV 

MOV 

T5T 

BR 

MOV 

MOV 

CMP 

HOV 

HOV 

JSR 

TYPE, 



HALT 
MOV 
ADD 
TYPE, 

HALT 

BIT 

BEQ 

:THE 

fcLR 

HOV 

MOV 

TRAP 

HOV 



tSBDOAT.Rb 

"b 



.ailOTVEC 

•340.at^TVEC+2 ; 
•STRAP. ifTRftPVEC 



DOME' 

LOOP BACK IF NO 

SETUP THE STACK POINTER 

7l or VECTOR FOR SCOPE ROUTINE 

^IrS*" VECTOR FOR ERROR ROUTINE 



^EVEL 7 

...r^.mm.r^'.^^ , 1 TRAP VECTOR FOR TRAP CALLS 
•340^4TRflPVEC+2;ttVEL 7 
•SPUftDN.aiPHRVEC;: POWER FAILURE VECTOR 
CEVEL 7 

SETUP END-0F-P90GRAH COUNTER 
INITIALIZE MJhBER OF ITERATIONS 
;SET "T" BIT VECTOR TO JRTRN 
iLEVEL 7 

^T SRTRN TO A RTI 
TRY TO DO A RTT 
DUMMY PS 
AND PC 
TRY THE RTT 

RTT IS LEGAL-SET JRTRN TO A RTT 



•340.atf»WRVEC+-2 , 
$ENDtT,SEOPCT ; 
STIHES 

•SRTRN, aiTBITVEC 
•340,a«TBITVEC+2 
•RTI SRTRN 
«b5S,a»RESVEC ; 
-(SPi ; 
•fe4$,-(SP) 



•RTT, SRTRN 
bbS 

•lO.SP ::RTT ILLEGAL—CLEAN OFF THE STACK 

«RE§VEC+2,a»RESVtt j; RESTORE TRAP CATCHER 

STBIT ;;CLtPIR "T" BIT SUITCH 

•..SLPADR INITIALIZE THE LOOP ADDRESS FOR SCOPE 

a^A , - ( SP ) ; ; SAVE ERROR VECTOR 

a^b -(SP) 

:SET UP TIME OUT VECTOR 
TRY TO REFERENCE HARDWARE SWR 
BRANCH IF NO TIMEOUT TRAP OCCURS 
POINT TO SOFTWARE SWR 
: POINT TO SOFTWARE DISPLAY REG 
teSTORE STACK 
RESTORE ERROR VECTOR 



•67t,4 

aSWR ; 
bBS ; 
•SWREG.SWR ; 
•DISPREG.DISPLPY 
(SP)+,(S^)* 
(SP)4,3»b 
(SP)+.a«4 
PC.SETUP 
MS623 



aSWR.RETRNX 

•2.RETRNX 

MS&24 



•10000, aswR 
IS 



FOLLOWING REPRESENTS THE EQUIVALENT OF "BIC 820, PS 

-(SP) ;; 

34. -(SP) SAVE CURRENT TRAP VECTOR 

•b^S,34 SETUP NEW TRAP VECTOT 

IIpUSH OLD PSW AN PCON STACK 

2(SP),6(SP) ;; 



SETUP POINTERS AND FLAGS 

ASK USER TO LOAD ADDRESS OF DESIRED 

TEST INTO SWITCH REGISTER, THEN 

PRESS COWTINUE 

WAIT FOR STARTING ADDRESS 

STORE STARTING ADDRESS 

CHANGE TO FIRST ADDRESS AFTER SCOPE INSTRUCTION 
ASK ISER TO SET SWITCH REGISTER 
OPTIONS, THEN PRESS CONTINUE 
SET SWR OPTIONS (BIT 11 HUST = 0) 
CHECK SW12 
BRANCH IF NOT SET 



OZCDB. PI 1 




U - 02CDB-8 



Ol?71b 
000002 

m 

042737 
0137% 
0127% 
000002 

00CH31 



OOSQMb 
01374b 
012737 
104400 
Olbibb 

012637 
012637 
052737 
01374b 
0127% 
000002 



024526 
Q24S34 
024540 
024542 

024660 

024570 
0c;4572 
024572 

024600 
024604 
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024456 

000034 
001214 
000020 
001214 
024506 



02461b 
024622 



00C034 
024526 

000002 
024542 

000034 
001214 
000020 
001214 
024572 



012737 fl24600 



104400 
104400 



024610 013737 



000177 
000000 



030556 
031454 

024622 
QOOOOQ 



001214 



001214 



001106 



70$: 



71S: 
IS: 

000034 
000006 72S: 



73$: 



74$: 
027576 2$: 



XLOOP: 



RETRNX: 



MOV 
RTI 
NOV 
MOV 
BIC 
MOV 
HCV 
RTI 

BR 



SEO DISS 



•70$, (SP) 

(5P)-»-,34 
(bP)*.$THPb 
•20.$tHPb 
$TMW),-(SP) 
•71$, -(SP) 



2$ 



REPLACE OLD PC UITH fCU 
RESTORE PSU 

RESTORE OLD TRAP VECTOR 



PUT rCU PS ON STACK 
PUT MEW PC ON STACK 
POP NEU PC AND PS 

;SKIP NEXT INSTRUCTION 



THE FOLLOUING REPRESENTS THE EQUIVALENT OF "BIS •20, PS" 



6lr 
rov 

MOV 
TRAP 
MOV 
MOV 
RTI 
MOV 
MOV 
BIS 
MOV 
NOV 
RTI 

NOV 

TYPE, 
TYPE I 

MOV 

JMP 

0 



-(SP) 
34. -(SP) 
•7^,34 

2(SP),6(SP) 
t73$,{SP) 

(SP)+,34 

(:P)+.$TMP6 

•20.$tMPb 

$TM^,-(SP) 

•74$,-(SP3 

•XLOOP, RETURN 

STMES 
MLOOP 

RETRNX, SLPAOR 
SRETRNX 



SAVE CURRENT TRAP VECTOR 
SETUP NEU TRAP VECTOT 
PUSH OLD PSU AN PCON STACK 



:; REPLACE OLD PC UITH NEW 
;; RESTORE PSU 

;; RESTORE OLD TRAP VECTOR 



;PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
: POP NEU PC AND PS 



SAVE RETURN POINT FOR THIS SECTION 
FOR POWER FAILURE RETURN 
TYPE MAINDEC TITLE & REV. LEVEL 
INDICATE "ENTERING A LOOP ON TEST 
SELECTED BY TfC USER- 
STORE 1ST ADDRESS OF TEST FOR LOOPING 
$LPA0R HILL BE PICKED UP BY 'SCOPE' 
JUMP TO TEST SELECTED 



ROUTINE TO CHECK CARDS UHICH HAVE ALL COLUMNS IDENTICALLY PUNCHED. 
THIS ROUTINE AUOWS SPECIFIC TYPES OF DATA FAILURES TO BE STUDIED 
EASILY. THE ROUTINE HALTS ONCE AT THE START. SET THE CORRECT CARD 
IMAGE PATTERN IN SUll-SMOO. THEN HIT CONTINUE (AFTER THE DECK IS 
LOADED AND CARD READER IS 6n-LINE). THE PATTERNIS STORED. AND THEN 
EACH COLUNN OF EACH CARD IS READ TWICE AND CONPARED WITH it. IF A 
DISCREPANCY OCCURS. THE ERROR IS PRINTED OUT ALONG WITH THE TOTAL 
NUMBER OF CARDS REAo AND THE TOTAL NUMBER OF DATA ERROI^ DISCOVERED 
UP TO THAT POINT (ALL PRINTOUTS ARE IN OCTAL). UHEN THE INPUT HOPPER 
IS EMPTY, im ROUTINE RINGS THE BELL AND UAITS FOR MORE CARDS TO BE 
LOADED Ato THE CARD READER TO BE PUT BACK ON-LINE. 

SU15=1 CAUSES A HALT AFTER AN ERROR. AND SW13=1 INHIBITS ERROR PRINTOUTS. 



024624 



CKSAME: 



DZCDB.Pll 



11 - DZCOe-B 




012637 

012737 

lOMMOO 
10M400 



000000 
017737 
0M2737 



00b037 
106137 



HftCYll 27(b5S) i-JUL-77 08:3S PftGE 8H 
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N 1 ^ 

i 1 X 1— 



^ta QiSb 



001100 

001126 

001100 
026326 
000340 

000340 




000340 
014774 
001220 
015140 
000340 
000002 
025006 

024776 



000020 
000022 
000030 
000032 
000034 
QQ0036 
000024 
00002b 
014766 

000014 
000016 
015140 
000010 



000006 015140 64S: 



000010 
000012 
015146 
025024 
000004 
000006 
025056 
154062 

000176 
0D0174 

000006 
000004 
024624 

030556 
031527 

045366 
0345'4 



153776 
170000 
025736 
025742 
025740 
025741 



65S: 

000010 66S: 
001106 

000004 



001136 67S: 
001140 



027576 



025736 
025736 
025740 



6BS: 



nov 

SI 

nov 
nov 
nov 

10V 

nov 
nov 
nov 
nov 
nov 
nov 

CLR 

nov 
nov 
nov 
nov 

CLR 

nov 

RTT 

nov 

BR 

ROD 

nov 

CLR 

nov 
nov 
nov 
nov 

TST 
BR 

nov 
nov 
cnp 
nov 
nov 
nov 

TYPE, 
TYPE, 

JSR 
TVPE, 



HALT 

nov 

BIG 

nov 

CLR 
ROR 
ROLB 



•$CnTftG,R6 ; 
(R6)+ ; 
•SgOOAT,R& I 

•STftCK.SP I 
•SSCOPt.ailOTVEC 
•mailOTVEC+2 ; 

•340.aiDrrvEC+2 



FIRST LXflTION TO BE CLEARED 
CLEAR nEnORY LOCATION 

BACK IF NO 
SETUP THE STACK POINTER 
:IOT VECTOR FOR SCOPE ROUTINE 
^VEL 7 

jeht vector for error routine 
Level " 



JsTRftprifTRflPVEC'jlTRAP VECTOR FOR TRAP CALLS 
•340^3lTRAPVEC+2;£.&VEL 7 



•SPUAON.aiPURVEC 
•340.atn<?VEC^2 
IEM)6T,IE0PCT 
ITinES 

iSRTRN.atTBITVEC 
•340,a&TBITVEC42 
•fill SRTRN 
•65S aiRESVEC 

-(SPi 

•641, -(SP) 

•RTT, SRTRN 
66S 

ilO SP 

»RE§VEC+2,a^RESVfet 
JTBIT ; 
».,SLPAOR ; 
a^A,-(SP) 

a«6!-(SP) 

»67i,4 ; 

aSt4R ; 

68S ; 

•SUREG.5UR ; 
•OISPR^G.DISPLAY 

(SP)+,(SP)+ ; 

(SP)+,a«6 ; 
(SP)+,ajW 
•CKSflte, RETURN 



.POWER FAILURE VECTOR 
LEVEL 7 

SETUP END-OF-PROGRAn COUNTER 
INITIALIZE NUHBER OF ITERATIONS 
:SET "T- BIT VECTOR TO SRTRN 
[level 7 

Set SRTRN TO A RTI 
TRY TO DO A RTT 

DunnY PS 

AND PC 
TRY THE RTT 

RTT IS legal—set SRTRN TO A RTT 

RTT laEGRL— CLEAN OFF THE STACK 

jiRESTORE TRAP CATCHER 
CLEAR "T" BIT SWITCH 

initialize the loop address for scope 
save error vector 

set up tine out vector 
try to reference hardware smr 
branch if no tineout trap occurs 
point to software swr 
: point to software display reg 
Restore stack 
restore error vector 



STNES 
nPATS 

PC. SETUP 

ns&25 



aswR.CAROin 

1170000, CARDIM 

CAROin, CDPKO 

DERFLG 

CDPKO 

CDPKl 



;SAVE RETURN POINT FOR THIS SECTION 
FOR POWER FAILURE ROUTINE 
TYPE NAINDEC TITLE & REV. LEVEL 
INDICATE -ENTERING SINGLE DATA 
•PATTERN TESTING" 
: INITIALIZE POINTERS 

:ftSK USER TO LOAD PATTERN VALUE INTO 
SWITCH REGISTER SUS<11:0>, THEN 
[press CONTINUE 
;WAIT FOA CARD INAGE PATTERN 
STORE PATTERN 

CLEAR UPPER BITS OF PATTERN 
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h 

4M00 
4401 
4402 

4403 
4404 
4405 
440b 
4407 
4406 
440S 
4410 
4411 
4412 
4413 
4414 
4415 
441b 
4417 
4419 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
442«> 
4427 
4428 
442S 
^4430 
4431 
44C2 
^433 




0253% 




8il4§4 
025438 
025442 
025450 
025452 



0052r/ 
150137 
005301 
001367 
104400 

000000 
004737 
005037 
005037 




It 

03Z777 

03277? 
QQ1004 

Ws 

005037 

012714 
010015 
13 
37 
105713 
10Q37& 
00S713 
100435 
005737 
100012 
122037 
QQ1054 
005237 
023727 
001387 
000727 
0l5037 
042737 

005237 
023727 
001361 
000707 




025740 
025741 
: II 
5741 
5741 
000007 
025740 

025742 
02S741 



034472 



025744 
025734 
025732 

m 

000010 
000004 



5743 
015334 
045442 
177660 

025734 



025742 

025741 

015334 
015334 



001200 
170000 

001200 

015334 
015334 



153632 
153622 



000120 

001200 
025736 

000120 



RORB 
ROLB 
ROLB 
ROLB 
ROLB 
MOV 

CKLOPl: ROR 
BCC 
INC 
BISB 

CKOVR: DEC 
BfC 
TYPE, 

H«.T 
CKSTRT: JSR 
CLR 
CLR 
CLR 

CKLOOP: CLR6 
BIT 
BEQ 
BIT 
BNE 
BIS 
COMB 

CKRERD: CLR 
tlOV 
MOV 
MOV 
INC 
INC 

CKLPl: TSTB 
BPL 
TST 
BMI 
TST 
BPL 

CKL0P3: CMPB 
BNE 
INC 
CMP 
BNE 
BR 

CKL0P2: MOV 
BIC 

CMP 
BNE 
INC 
CMP 
BNE 
BR 



PME 85 



COPKO 
COPKl 
COPKl 
COPKl 
COPKl 

CD^O 
CKOVR 
DERFLG 
Rl, COPKl 
Rl 

CKLOPl 
MSG24 



B13 



SEO 0157 



Rl 



PC.INIT 

TOtCRD 

TOTERR 

Sct^lg+i 
110. asuR 
CKR^AO 

CKi^AO 

12. 3C0S 

DEftFLG+1 

CLCNT 

IBUFBEG.RO 

«-120, aCDC 

RO. 3CDR 

9C6S 

TOTCRD 

aCDS 

CKLPl 

acos 

CKERR 
DERFLG 
CKL0P2 
(R0)+, COPKl 

CLCNT 

CLCNT.il20 

CKL0P3 

CKLOOP 

(RO)+.STMPO 

•170060,STHP0 

STMPO. CRRDIM 

CKFAld 

CLCNT 

CLCNT. 1120 

CKLOP^ 

CKLOOP 



;ftSK USER TO SET SWITCH REGISTER 
lOPTIONS, THEN PRESS CONTINUE 
;UfiIT FOft SWITCH SETTINGS 

; INITIALIZE CARD COUNT 
INITIALIZE ERROR COUNT 
I CLEAR FLAG FOR PRINTING ERROR HEADING 

; CHECK FOR PACK MODE ONLY 

BRANCH IF NOT SET 

CHECK FOR IMAGE MODE ONLY 

BRANCH IF SET 
•SET PACKING MODE 

INITIALIZE COLUMN COUNT 
SET UP BUFFER POINTER 
SET UP COLUMN COUNTER 
SET UP BUS ADDRESS 
START READING CARD 
INCREMENT CARD COUNT 
CHECK CONTROLLER READY 
LOOP IF NOT SET 
CHECK FOR ERROR 
BRANCH IF ERROR SET 



; CHECK DATA (PACKED MODE) 



;GET VALUE READ FROM CARD 
STRIP OFF BITS 15 THRU 12 
IN THE EVENT UE ARE TESTING CD20 
[check THE DATA (IMAGE MODE) 
; BRANCH If data ERROR 
COUNT THE COLUMNS 
CHECK FOR LAST COLUMN 



CI 



1 



02SS1Q 
02S512 



MfllNOEC - 11 

ozcoe.pu 



4M3S 
4H35 
HH% 
4H37 

HMMl 
4MM2 
4MM3 

4M4fc 
4MM7 
4MM8 
44Mq 
4H§0 
44S1 
4452 
4453 
4454 
4453 

4457 
4458 
4459 
^•4fe0 
44tl 
44W 
44b3 
4464 
4465 
4466 
4467 
4468 
4469 
4470 
4471 
4472 
4473 
447H 
4475 
4476 
4477 
4478 
4479 
4480 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
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032713 010000 

001222 
13 000010 
17^ 



OOMOOO 
02S742 
000001 



025524 



>540 

025546 
025550 

025564 

025576 
025602 
025606 
025612 

' " il4 





025672 
025674 
025676 



032713 
001407 
005737 
100004 
122737 

im 

000662 



001052 
005737 
QOIOOM 
005237 
104400 
104400 
005237 
0137% 
104404 
104400 
005337 
005737 
100007 
104400 
114046 
104402 
003 
000 
105720 
000404 
014046 
104402 
006 
001 
005720 
104400 
013746 
104404 
104400 
0137% 
104404 
005777 
100001 
000000 
005237 



CKERR: BIT 
BEO 
TYPE, 

CKERR3- BIT 
BEQ 
BR 



110000, XOS 
CKERR 1 
SBELL 

•10, acDs 

CKE^3 
CKSTRT 



CKERRi: BIT •4000. SCDS 

BEQ CKERR2 

TST DERFLG 

SFL CKERR2 

025742 CMPB »1, DERFLG 

BGT CKL0P3 

CKERR2: ERROR *ba 

BR CKLOOP 



TOTERR 

•20000.3SUR 

CKERROft 

ERFLG 

CKNOHD 

ERFLG 

f1SG19 

CRLF 

CLCNT 

CL.CNT,-(SPJ 

SPACE 

CLCMT 

DERFLG 

CKNOPK 

SPACE 

-(RO),-(SP) 

3 
0 

(R0)+ 

CKOVRl 

-(RO),-(SP) 

6 
1 

(R0) + 
SPACE 

TOTCRD,-(SP) 
SPACE 

TOTERR, -(SP) 



025732 


CKFfllL: 


INC 


020000 


153376 


BIT 






BNE 


001260 




TST 






BfC 


001260 




Ihc 


033442 




TYPE, 


030553 


CKNOHD: 


TYPE 


015334 




INC 


015334 




MOV 






TYPOS 


030545 




TYPE, 


015334 




DEC 


025742 




TST 






BPL 


030545 




TYPE, 






MOVB 






TYPOS 






.BYTE 






.BYTE 






TSTB 






BR 




CKNOPK: 


MOV 






TYPOS 






.BYTE 






.BYTE 






TST 


030545 


CKOVRl: 


TYPE, 


025734 




flOV 






TYPDS 


030545 




TYPE, 


025732 




MOV 






TYPDS 


153244 


CKERROP: 






BPL 






HALT 


015334 


IS: 


INC 



TST 
IS 

CLCMT 



3SUR 



CHECK FOR OFFLINE 
BRANCH IF NOT 
RING-A-DING 

CHECK TRANSITION TO ON-LINE 
BRANCH IF OFF-LINE 
START OVER 

; CHECK FOR DATA ERROR 



: BRANCH IF LEGIT 

;REAL, LIVE ERROR. 

COUNT ERRORS 

CHECK FOR INHIBITING PRINTOUT 
BRANCH AROUND PRINTOUT IF SET 
TEST FLAG TO PRINT HEADING 
BRANCH IF ALREADY DONE 
PRINT HEADING ONCE ONLY 
OUTPUT HEADING 

OUTPUT CARRIAGE RETURN. LINEFEED 
STEP UP CXUMN COUNT f6r ERROR REPORT 
PRINT THE COLUMN OF THE CARD 
ON UHICH AN ERROR MAS DETECTED 

;DROP COLUMN COUNT BACK AFTER REPORTING 



PRINT THE INCORRECT VALUE 
THAT UAS READ FROM THE 
COLUMN INDICATED ABOVE 
(PACKED MODE) 

CORRECT MEMORY LOCATION AFTER PRINTOUT 

PRINT THE INCORRECT VALUE THAT 
UAS READ FROM THE COLUMN 
INDICATED ABOVE 

(IMAGE MODE) , , 

CORRECT THE MEMORY LOCATION AFTER PRINTOUT 

; PRINT THE CARD NUMBER ON UHICH 
■THE ERROR UAS FOUND 

; PRINT THE TOTAL NUMBER OF ERRORS 
ACCUMULATED TO NOU 

iCHECK SU15 TO HALT ON ERROR 
; BRANCH IF NOT SET 
;HALT ON ERROR 

STEP UP COLUMN COUNT TO BE CORRECT FOR 
NEXT POSSIBLE COLUMN TC BE CHECKED 



D13 



Mfi'MOEC - 11 

Dzcoe.pii 
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HMSe 02570c; 023727 01S33H 0G0120 

4M89 Q2S710 001002 

^^1! mi m a: 

4H§ ^7ib SoOl^ 028370 

44% 02S732 000000 

44<}7 02573S 000000 

449B Q2S736 000000 

4499 02S740 000 

4500 025741 000 

4501 025742 000000 



CHP 
Bf€ 
JHP 
BIT 
BNE 
JMP 



TOTERR: 
TOTCRO: 
CfiRDIM: 
CDPKO; 
CDPKl: 
OERFLG: 0 



0 

D 
0 

.BYTE 
.BYTE 



CLCNT, 1120 
2S 

CKLOOP 
t4,aSUR 
CKL0P2 
CKL0P3 



D 
0 



SEQ 0159 



HAVE UE FIHISHEO CflPD^ 
BRANCH IF NO 

OTHERUISE. GO TO SET UP FOR NEX^ CARD 
ARE UE DOtNG PACKED MODE^ 
BRANCH IF NOT 

OTHERUISE, CONTINUE CHECKING COLUMNS 
IN PACKED MODE 



Dzcoe.Pii 



U - 02COB-B 



rWCYU 27(b5M) 
COmON ROUTINES 
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Fl 



SEQ OlbO 



4508 
450S 
4S10 
M5U 

sIih 

4515 
45 lb 
4517 
4518 

451'9 

45ao 

4521 
4522 
4523 
4524 
4535 
452b 
4527 
'1528 
452S 
4530 
4531 
4532 
4533 
4534 
4535 
4536 
4537 
S538 
453<? 
4540 
4541 
4542 
4543 
4544 
4545 
454b 
4S47 
4548 
45Hq 
4550 
4551 
4552 
4553 
4554 
4555 



025772 
02577b 
02b000 
02b002 
02bn0b 
02bQ12 
02b014 



02b01b 
08b01b 
02b022 
026024 
02f«02b 
02b032 



026040 
026042 
'6044 



026050 

Sit8i4 

026060 
026064 
026066 
026070 
026072 



004737 
105713 
100376 
012713 
rc2713 
0C1401 
104067 
000207 



032713 
001001 
000207 
104400 
104400 
000000 
000766 



104400 
010046 
005000 
153700 
001004 



026034 013746 



i04401 
000426 
QQ5300 
006300 
006300 

m 

012037 
001404 
104400 
QOOOOO 
i0«400 



025772 



000400 
000200 



010000 



033410 
033175 



001227 
001114 
001116 



001270 
Q26070 



001227 



; ISSUE flESSflCE IF CORD REftDER IS OFF-LirC 

IWIT FOR BUSY TO CLEfW IN CASE CftRO REftOER IS STILL REPOING fl CARD 
INlTIftJzfsTflTUS REGISTER AND USE ERROR HPLT IF IT DOESN'T CLEAR PROPERLY 



'hOTE^S^T^PROGRAW hTll'HANG.HERE'IF BUSY REMPIINS SET 



Init 

IS 



2S: 



JSR 
TSTB 
BPL 
NOV 
CMP 
BEQ 
ERROR 
RTS 



9c6s 

IS 

•400, 
1200. 
2$ 

♦67 
PC 



CKOFFL 



9CDS 
3C0S 



IN CASE 



SEE IF OFF-LINE BIT IS SET 
UflIT FOR CONTROLLER REflOY. 
fl CARD IS STILL BEING REflO 
INITIflLlZE THE CARD READER 
MAKE SURE INITIALIZATION Ok 
BRANCH IF ALL BITS ZERO 

:NOT ALL BITS OF STATUS REGISTER ARE 2ERC 

; RETURN 



.•SUBROUTINE TO CHECK FOR BIT 12 (OFF-LINE) BEING SET IN CARD 
•READER GSR, AND PRINT OUT A MESSAGE IF IT IS 



fcKOFFL: 



IS: 



BIT 

RTS 

TYPE, 

TYPE, 

HALT 

BR 



ilOOOO, 
IS 

PC 

MSG18 
M5S17 

CKOFFL 



acos 



CHECK BIT 12 
BRANCH IF SET 
RETURN IF NOT SET 
-CARD READER OFF-LINE" 
"REMEDY THE CONDITION . 
UAIT FOR CONTINUE 
CHECK AGAIN 



ETC. 



;»»««»*»#«»»«»»»»»**»»»♦»»»»»»»**«»«»*»»»»»«««»"»»**»»»»»***** 

.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 

:»THIS RUUTINE USES THE "ITEM CONTROL BYTE" (SITEMB) TO DETERMINE^UHICH ^ ^ 
♦ERROR IS TO BE REPORTED. IT THEN OBTAINS. FROM THE "ERROR TABLE" (SERRTB), 
»AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 



SERRTYP: 

TYPE .SCRLF 

MOV ftO,-(SP) 

CLR RO 

BISB anSITEMB.RO 

BNE IS 

MOV SERRPC,-(SP) 

TYPOC 

BR 6S 

IS: DEC RO 

A5L RO 

flSL RO 

ASL RO 

ADD tSERRTB.RO 

MOV fR0)+,24 

BEQ 3S 
TYPE 

2S: .mORD D 

TYPE , SCRLF 



: "CARRIAGE RETURN" & "LINE FEED" 
SAVE RC 

I PICKUP THE ITEM INDEX 

IF ITEM NUMBER IS ZERO. JUST 
TYPE THE PC OF THE ERROR 
SAVE SERRPC FOR TYPEOUT 
ERROR ADDRESS 

GO TYPE—OCTAL ASCIKALL DIGITS) 
GET OUT 

ADJUST THE INDEX SO THAT IT UILL 
UORK FOR THE ERROR TABLE 



:FORM TABLE POINTER 
PICKUP "ERROR MESSAGE" POINTER 
SKIP TYPEOUT IF NO POINTER 
TYPE THE "ERROR MESSAGE" 
"ERROR MESSAGE" POINTER GOES HERE 
"CARRIAGE RETURN" & "LINE FEED" 
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F13 



455b 
4557 
4558 
4559 
45b0 
4561 
45W 
45W 
4564 
4565 
4566 
4567 

4tba 

4569 
4570 
4571 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
4579 
45B0 
4581 
4582 
4583 
4584 
4585 
4586 
4587 
4566 
4589 
4590 
4591 
4592 
4591 
4594 
4595 
4596 
4597 
4598 
4599 
4600 
4bdl 
4602 
4b03 
4604 
4605 
4606 
4607 
4606 
4609 



02b07£, 012037 026106 

026102 001404 

026104 104400 

02610b 000000 

illO 104400 001227 

ill4 011000 

026116 001004 

026120 012600 

»122 104M00 001C27 

•1% 000207 
>130 

.130 013046 

il32 104401 

026134 M5710 

026136 001770 

026140 104400 026146 

026144 000771 

026146 020040 000 
026152 



3S: 

4S 
5S 
6S 

7S: 



8S: 



HOV 

BEO 

TYPE 

.UORO 

TYPE 

MOV 

Bt€. 

MOV 

TYPE 

RTS 

MOV 

TYPOC 

TST 

BEQ 

TYPE 

80 

.RSCIZ 
.EVEN 



(R0)+,4J 
5S 

0 

.ICRLF 

(R0),R0 

71 

(SP)+.RO 

.jcrlP 

3(R0)+,-(SP) 

(RO) 
6S 

/ / 



PICKUP 'DfiTP HEADER" POINTER 
SKIP TYPEOUT IF 0 
TYPE THE -ORTfi HEfiOER** 
-DflTfl JCflOER" POINTER C0E3 HERE 
-CflRRIftGE RETURN- & "LINE FEED" 
PICKUP "OflTfl TABLE" POINTER 
GO TYPE THE DfiTfi 
RESTORE RO 

"CflRRIACE RETURN" & 'LINE FEED" 
RETURN 

SPVE aCROU FOR TYPEOUT 

GO TYPE—OCTflL flSCIKflLL DIGITS^ 

IS THERE ANOTHER NUMBER' 

BR IF NO 

"^YPE TU0(2J SPACES 
LOOP 

TU0(2) SPACES 



.S6TTL ERROR HANDLER ROUTINE 

»THI5 ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
«SPVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
«ANO GO TO SERRTYP ON ERROR 

«THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
»SW15=1 
«SU13=1 
«SU10=1 
«CALL 

i ERROR 



OPTIONS PROVIDED 
HALT ON ERROR 
INHIBIT 
BELL ON 



ERROR 
ERROR 



TYPEOUTS 



N 



;;ERROR=EMT AND N=ERROR ITEM NUMBER 



026152 








SERROR: 




026152 


010t»37 


001174 






MOV 


026156 
026164 


016637 


000002 


001176 




MOV 


011337 


001200 






MOV 


026170 


017737 


153044 


001202 




MOV 


026176 


011437 


001204 






MOV 


026202 


011537 


001206 






MCV 


026206 


105237 


001103 




7$: 


INCB 


026212 


001775 








BEQ 


026214 


013777 


001102 


152716 




MOV 


026222 


0327-/7 


002000 


152706 




BIT 
8EQ 


026230 


001402 








026232 


104400 


001222 






TYPE 


026236 


005237 


001112 




IS: 


INC 


026242 


011637 


001116 






MOV 


026246 


162737 


000002 


001116 




SUB 


026254 


117737 


152636 


001114 




MOVB 


026262 


032777 


020000 


152646 




BIT 


026270 
026272 


001004 
004737 








BNE 


026016 






JSR 



5P.SREG6 

2(§P).5REG7 

aCDS.STMPO 

aCDD6.JTMPl 

aCDC,4TMP2 

SCDA'sTMP3 

SERF^G 

7J 

JTSTNM.aOISPLAY 
iBITlO asuR 
1% 

.SBELL 

4erttl 

(SP).$ERRPC 

l2.$feRRPC 

astRRPC.SITEMB 

lBITl3,dSUR 

20S 

PC, SERRTYP 



'CDS' 
'COD' 
'CDC 
'CDA' 



STACK POINTER POSITION 
CONTENTS OF 'PSW' 
CONTENTS OF DEVICE 
CONTENTS OF DEVICE 
CONTENTS OF DEVICE 
CONTENTS OF DEVICE 

SET THE ERROR FLAG 

DON'T LET THE FLAG GO TO ZERO 

DISPLAY TEST NUMBER AND ERROR FLAG 

BELL ON ERROR' 

NO - SKIP 

RING BELL 

COUNT THE NUMBER OF ERRORS 

GET ADDRESS OF ERROR INSTRUCTION 

; STRIP AND SAVE THE ERROR ITEM CODt. 

SKIP TYPEOUT IF SET 
;SkIP TYPEOUTS 

GO TO USER ERROR ROUTINE 



nflifccc - 11 
ozcoe.pu 
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G13 



SEQ oiba 




lOMHOO 001227 
777 1S2630 




12 022737 0150H6 000042 
OOiOOl 



000002 



02b32b 
026326 
026334 



032777 
001055 



026336 000416 



13746 
12737 
005737 

022626 

1637 




026422 

m 

026434 
026442 
026444 

026464 



105737 
001404 
105037 
137 
77 
1011 
005737 

m 

023737 
002012 
012737 
013737 
105237 
011637 



04000C 152602 



OOOOOH 
026364 
177060 
000004 



000004 



001103 

001103 
001220 
004000 

001100 

001104 
001220 

000001 
026504 
001102 
001106 



000004 



001104 

001104 
001220 



20S: 
2S: 



3S: 



TYPE ,$CRLF 



TST 

BPL 

HfiLT 

CNR 

BfC 

HALT 

RTI 



asuR 

3S 

tSENDA0,9t42 
3$ 



:;HRLT ON ERROR 
SKIP IF CONTINUE 
HALT ON ERROR! 

;ACT-11 ftUTO-ACCEPT' 

; BRANCH IF NO 

1 



;; RETURN 



.SBTTL SCOPE HANDLER ROUTINE 

♦THIS ROUTINE CONTROLS THE LOOPING OF SUBTLSTS. IT MILL INCREMENT 

»AND LOAD THE TEST NUMBER (STSTNM) INTO THE DISPLAY REG, (DISPLAV<7:C> ) 

«AND LOAD THE ERROR FLAG (SERFLG) INTO DISFLAY<15j08> 

♦THE SWITCH OPTIONS PROVIDED BY THIS ROUTirC ARE: 

»SH14sl LOOP ON TEST 

♦SUIUI INHIBIT ITERATIONS 

♦CALL 

♦ SCOPE ;;SCOPE=IOT 



SSCOPE: 

IS: BIT lBIT14,aSUR 

BNE SOVER 
itMltlSTART OF CODE FOR THE XOR 
iXTSTR: BR 6S 



MOV 
MOV 
TST 
MOV 
BR 

5S: CMP 

MOV 
BR 

&S:;ittllENO 

25: 



4S 

152516 3S 



TSTB 
BEG 
CLRB 
CLR 
BIT 
BNE 
TST 
BEO 
INC 
CMP 
BGE 
MOV 
MOV 
SSVLAD: INCB 
MOV 



IS 



aiERRVEC.-(SP) 
iSS.SfERAVEC 
ail77060 
(SP)+.aiERRVEC 
SSVLA6 
(SP)+,(SP)+ 
(SP)+,aiERRVEC 
SOVER 
OF CODE FOR THE XOR 
SERFLG 
3S 

SERFLG 
STIMES 
•BITll.aSUR 
IS 

SPASS 
IS 

SICNT 

STIMES, SICNT 

SOVER 

•1, SICNT 

SM^CCNT, STIMES 

STSTNM 

£SP),SLPADR 



;;LOOP ON PRESENT TEST' 
ii'/ES IF SW14=1 
TESTERlCltl 

IF RUNNING ON THE "XOR" TESTER CHANGE 
THIS INSTRUCTION TO A "NOP" (N0P=240) 
SAVE THE CONTENTS OF THE ERROR VECTOR 
SET FOR TIMEOUT 
TIME OUT ON XOR' 
RESTORE THE ERROR VECTOR 
GO TO THE NCXT TEST 
CLEAR THE SiACK AFTER A TIME OLT 
RESTORE THE ERROR VECTOR 
.LOOP ON THE PRESENT TEST 
TESTERltiti 

HAS AN ERROR OCCURRED' 
BR IF NO 

ZERO THE ERROR FLAG 

CLEAR THE NUMBER OF ITERATIONS TC MAKE 
INHIBIT ITERATIONS' 
BR IF YES 

IF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
INCREMENT ITERATION COUNT 
CHECK THE NUMBER OF ITERATIONS MADE 
BR IF MORE ITERATION REQUIRED 
REINITIALIZE THE ITERATION COUNTER 
SET NUMBER OF ITERATIONS TO DO 
COUNT TEST NUMBERS 
SAVE SCOPE LOOP ADDRESS 



fIfllNOEC - II 
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HI 



3 



4bbH 
%b5 

Mbbe 
4bbq 

Mb70 
4b71 
%7| 
4b73 
4b74 
4b75 
4g7b 
4b77 
4b78 
4b7q 
4b80 
4b81 
4b82 
4b83 
4f.BM 
Hi3S 
4b6b 
4b87 
4b88 

4big 

4b% 
4b91 
4b92 
4b93 
4b<W 
4bq5 
4b% 
4bS7 

4bse 

4b'M 
4700 
4701 
4702 
4703 
4704 
4705 
470b 
4707 
4708 
H709 
4710 
4711 
4712 
4713 
4714 
4715 
471b 
4"'17 



026470 013777 001102 
02b47b 01371b 001 10b 

m m 



02b50b 
02b512 
02b514 
02651b 
02'^520 
026522 
026526 




>560 
^>562 
*65b4 
Q2656b 
02b570 
026574 
026600 
0266C2 

026606 

iillli^ 

026620 
026624 



105737 
100002 

SOOOO 
0407 
01004b 
0l7b00 
11204b 
001005 
005726 
012600 
06271b 
000002 
12271b 
001426 
122716 
001004 
005726 
104400 
001227 
000757 
004737 
123726 
001352 
013746 

105366 
QC2770 
0OM737 
10533; 
000770 



001155 

000002 

000002 
000011 
000200 



026652 
00115" 

001152 

000001 

026652 
02671b 



SEQ 0163 



152442 JOVER 



flOV 
flOV 
RTI 
SHXCNT: 1 



STETNM aOISPLRY 
ILPM)R,(SO) 



; DISPLAY TEST NUMBER 
; FUDGE RETURN flOORESS 
; FIXES PS 

mx. NUMBER OF ITEPATIOHS 



.SBTTL TYPE ROUTINE 

♦ROUTINE TO TYPE ►iSCIZ MESSAGE. MESSAGE MUST TERMINATE UITH A 0 BYTE. 
#THE ROUTINE WILL INSERT A NUMBER OF r«JLL CHARACTERS AFTER A LINE FEED. 
♦NOTEl: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHWWCTER. 

»N0TE2 
»N0TE3 
« 

)(CALL • 

»1) USING a TRAP INSTRUCTION 
» 

ftOR 

* 
* 



SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER, 



IS: 
2S: 



60S: 
3S: 

4S: 



5S: 
6S: 



7S: 



TYPE ,MESADR 

TYPE 
NESAOR 



;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



STYPE: TSTB 
BPL 
HALT 
BR 
MOV 
MOV 
HOVB 
BNE 
TST 
MOV 
ADD 
RTI 
CMPB 
BEG 
CMPB 
BNE 
TST 
TYPE 
SCRLF 
BR 
JSR 
CMPB 
BNE 
MOV 



DECB 

BLT 

JSR 

DECB 

BR 



STPFLG 
IS 

3S 

RO,-(SP) 

a2!sP),Ro 

(RO)+,-CSPj 
4S 

(SP) + 

(SP)+.RO 

•2,(5^) 

•THT, (SP) 
BS 

•TCRLF, CSP) 
5$ 

(SP) + 



2S 

PC.STYPEC 
SFtLLC, (SP)+ 
2$ 

SNULL,-(SP) 

KSP) 
bS 

pc.stypec 
scAarcnt 

7S 



IS THERE A TERMINAL' 
BR IF YES 

HALT HERE IF NO TERMINAL 

LEAVE 

SAVE RO 

GET ADDRESS OF ASCIZ STRING 

PUSH CHARACTER TO BE TYPED ONTO STACK 

BR IF IT ISN'T THE TERMINATOR 

IF TERMINATOR POP IT OFF THE STACK 

RESTORE RO 

ADJUST RETURN PC 

RETURN 

BRANCH IF <HT; 

BRANCH IF NOT <CRLF> 

POP <CR><LF) EOUIV 
TYPE A CR AND LF 

GET NEXT CHARACTER 

GO TYPE THIS CHARACTER 

IS IT TIME FOR FILLER CHARS." 

IF NO GO GET NEXT CHAR. 

GET t OF FILLER CHARS. NEEDED 

AND THE NULL CHAR. 

DOES A NULL NFCC TO BE TYPED' 

BR IF NO~GO POP THE NULL OFF OF STACK 

GO TYPE A NULL 

DO NOT COUNT AS A COUNT 

LOOP 






ozcoe.pu 



471 
M71 
4720 

47( 

473 
47 
47 
47, 
4727 

47; 

47 
47, 
4733 
4734 
47 
47: 
4737 
4738 
4739 
4740 
4741 
4742 
4743 
4744 
474S 
47"6 
4747 
4748 
4749 
4750 
4751 
4752 
4753 
4754 
4755 
4756 
4757 
475S 
4759 
47b0 
:7S1 
47b2 
47b3 
47b4 
47b5 
47bb 
47b7 
47bC 
47b9 
4/70 
4771 
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000040 

m 02671b 



152270 

QQ0002 152262 
000015 000002 

02671b 

000012 000002 



026656 



74 

0267ol 
02670" 
712 
6714 
6716 
026720 



100375 

iM 

0Q1003 
105037 
000406 
122766 




000011 
000200 



026722 Q17b4b 000000 
02b72b llb637 OOOCOl 027145 
026734 112637 02^147 
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SEQ OlbH 



;HCRIZONTftL TAB PROCESSOR 



8S: 
9S: 



ITYPEC: 



novB 

JSR 
BITB 
BNE 
TST 
BR 
TSTB 
BPL 
NOVB 
CnF3 
Bf€ 
CLRB 
BR 

CMPB 
BGE 
INCB 
SCHflRCNT:.UORO 
STYPEX: RTS 

EQUATES 

lATrll 
TCRLF=200 



IS 



•40,(5P1 
PC, ITYPEC 
•7 JCHARCNT 
9J 

(SP) + 
2S 

asTPs 

STYPEC 
2(5P).aSTPB 
•15,2(SP) 
1$ 

SCHflRCMT 
STYPEX 
•12.2(SP) 
STYPEX 

(PC) + 
0 

PC 



REPLACE TfiB UITH SPACE 
TYPE A SPACE 
BRANCH IF NOT AT 
TAB STOP 

POP SPACE OFF STACK 

GET NEXT CHARACTER 

WAIT UNTIL PRINTER IS READY 

LOAD CHAR TO BE lYPED INTO DATA REG. 
BRANCH IF 
NOT <CR> 

EXIT 

BRANCH IF 
<LF> 

INC SPACE 
COUNT 



5BTTL BINARY TO OCTAL (ASCII) AND TYPE 

»THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUHBER TO A 6-DIGIT 
»OCTAL (ASCII) NUMBER AND TYPE IT. 

»$TYPOS — ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
*CALL: 
* 
* 
* 

* 



MOV 
TYPOS 
.BYTE 
.BYTE 



NUM,-(SP) 

N 
M 



; NUMBER TO BE TYPED 
CALL FOR TYPEOUT 

N=l TO 6 FOR NUMBER OF DIGITS TO TYPE 
H=l OR 0 

::1=TYPE LEADING ZEROS 
0=SUPPRESS LEADING ZEROS 



»$TYPON ENTER HERE TO TYPE OUT UITH THE SAME PARAMETERS AS THE LAST 

»STYPOS OR STYPOC 
«CALL: 

« MOV NUM,-(SP) ;; NUMBER TO BE TYPED 

« TYPON I -CALL FOR TYPEOUT 

IsTYPOC — ENTER HERE FOR TYPEOUT OF A lb BIT NUMBER 
*CALL ■ 

« ■ MOV NUM,-(SP) NUMBER TO BE TYPED 

* TYPOC ;:CALL FOR TYPEOUT 



STYPOS: MOV 3(SP),-(SP) 
MOVB 1(SP),$0FILL 
HOVB (SP)+,$0M00E+1 



: PICKUP THE MODE 
LOAD ZERO FILL SWITCH 
NUMBER OF DIGITS TO TYPE 
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SIQ OlbS 



H772 
H773 
477M 
4775 
H77b 
4777 
<778 
4/79 
4780 
4781 
4782 
4783 

47^ 

4787 
4788 
4789 
4790 
479 i 
4/92 
4793 
4794 
4795 
479b 
4797 
4^98 
M799 
48Q0 
4801 
480^ 
4803 
4804 
4805 
4B0b 
4807 
4808 
48C9 
4810 
4811 
4812 
4813 
4814 
4015 
481b 
4817 
4818 
4819 
4820 
4821 
4822 
4823 
4824 
4825 



02S740 
02b7M4 
?7% 
»7S4 




_j772 
02«)774 

o%r/b 

027002 
027004 
027010 
027014 

027030 
027032 
027C3M 
02703fa 
027040 
027042 
0P7044 
027050 
0270^2 
02705fe 
0270bO 
02/082 
Q270f.4 
0270bb 
027072 
02707b 
027102 
02710b 
027112 
027UM 
027Ub 
027120 
027122 
027124 
02712b 
027130 
02713b 
027140 
027142 
027143 
027144 
027145 
02714b 



0b<;71b 
00040b 
112737 
112737 
112737 
01034b 
0104% 
01054b 
11370H 
005404 
0b2704 
110437 
113704 

am 

00bl05 
000404 
C0bl05 
OOblDS 
C3bl05 
010503 
005103 
J 05337 
10001b 
042703 
001U02 
005704 
001403 
005204 
052703 
052703 
110337 
104400 
105337 
003347 
002402 
005204 
000744 
012505 
012504 
012503 
OlbbbS 
0l2blb 
000002 
000 
000 
000 
000 
000000 



0000C2 

000001 027145 

00000b 027147 

0000P5 027144 



027147 

00000b 
02714b 
027145 
000012 



027146 
177770 



OOOObO 
000040 
027142 
02714c 
027144 



ITYPOC: 
ITYPON: 



IS: 
2S: 

3S: 



000002 000004 



4S: 
5f: 



bS. 



BS: 



JOCHT: 

SOFILL: 

SOnCDE: 



ADO 

BR 

NOVB 

novB 
novB 

MOV 

MOV 

MOV 

MOVB 

NEC 

AOO 

MOVB 

NOVO 

MOV 

CLR 

ROL 

BR 

ROL 

ROL 

ROL 

MOV 

ROL 

OECB 

BPL 

BIC 

BNE 

TST 

6E0 

INC 

BI5 

BIS 

MOVB 

T^PE 

DECB 

3GT 

BLT 

INC 

BR 

MOV 

MOV 

MOV 

MOV 

MOV 

RTI 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.UORD 



•2, (SP) 

ITYPON 

•1. SOFILL 

•b,SOnODE^l 

•5 SOCNT 

R3 -iSP) 

R4,-(SP) 

R5.-(SP) 

$0H0DF+1,R4 

R4 

lb,R4 

R4.S0M0DE 

SOFILL, R4 

12(SP).RF 

R3 

R5 

3S 

R5 

R5 

R5 

R5,R3 
R3 

SOMODE 
7S 

•177770, R3 

4S 

R4 

5S 

R4 

••0,R3 
• ' .R3 

"ai 

iOCNT 

2S 

bS 

R4 

2S 

(SP)+,R5 

(SP)+,R4 

(5P)+,R3 

2(SP),4(SP) 

(5P)+|(SP) 

0 
0 
0 
0 
0 



;;A0JL'ST RETURN ADDRESS 



SET THE ZERO FILL SWITCH 
SET FOR SlX(b) DIGITS 
SET THE ITERATION COUNT 
SAVE R3 
SflVt R4 
SAVE R5 

GET THE NUMBER OF DIGITS TO TYPE 

SUBTRACT IT FOR MAX. ALLCUEO 

SAVE IT FOR USE 

GET THE ZERO FILL SWITCH 

PICKUP THE INPUT NUMBER 

CLEAR THE OUTPUT WORD 

ROTA"^E MSB INTO "C" 

GO 00 MSB 

FORM THIS DIGIT 



GET LSB OF THIS DIGIT 
TYPE THIS DIGIT' 
BR IF NO 
GET RID OF JUNK 
TEST FOR 0 
SUPPRESS THIS 0' 
BR IF YES 

DON*T SUPPRESS ANYMORE O'S 
MAKE THIS DIGIT ASCII 
HAKE ASCII IF NOT ALREADY 
SAVE FOR TYPING 
GO TYPE THIS DIGIT 
COUNT BY 1 
BR IF MORE TO DO 
BR IF DONE 

INSURE LAST DIGIT ISN'T A BLANK 
GO DO THE LAST DIGIT 
RESTORE R5 
RESTORE R4 
RESTORE R3 

SET THE STACK FOR RETURNING 
RETURN 

STORAGE FOR ASCI! DIGIT 
TERMINATOR FOR TYPE ROUTINE 
OCTAL DIGIT COUNTER 
ZERO FILL SWITCH 
NUMBER OF DIGITS TO TYPE 



SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 



OZCDB.PU 



HB2b 
4827 
4828 
482<) 
4830 

4833 
4834 
4835 
4838 
4937 
4838 
4839 
484C 
4841 
4642 
4943 
4844 
4845 
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Ki 



SEQ 01&6 



M848 
4849 

4852 
4853 



485b 
4857 
4658 
4859 
48b0 
4861 
4862 
4363 

?! 

4866 
4867 
4868 
4869 
4870 
4871 
4872 
4873 
4874 
4875 
4876 
4877 
4878 
43-9 



027150 
027150 
027152 
027154 
027156 
027160 
n27162 
027166 
027172 
027174 
S7:76 
02720H 
027206 
02721? 
027216 

I7I26 
027230 

m 

027236 
0272H0 
027242 
0272M4 

027260 



01004b 
010146 
01024b 
0103'*E 
01054b 
01274b 
016605 
] 00004 
005405 
112766 
0O5Q00 
012703 
112723 
005002 
0160Q1 
160105 
002M02 
0Q5202 
Q0077H 
060105 
005702 
001002 
105716 
100407 
106316 
103003 
U6663 
052702 
0SI7Q2 
110223 
005720 
020027 
002746 
003002 
010502 
000764 
105726 
100003 
llbb63 
105013 
012605 
012603 
012602 
012601 



»THIS ROUTINE IS USED TO CHflNGE P Ib-BIT BINftRY NUMBER TO A 5-DIGIT 
tSICNED OeCinPL (ASCII) NUMBER AND TYPE IT. DEPENDING ON UHFTHER 1HE^ 
iNLWKR IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
»BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALUAYS BE 
•REPLACED WITH SPACES. 



•CALI.: 
ft 
ft 

JTYPDS: 



020200 
OOOOcO 



000055 000001 



027364 
000040 

027354 



OOOOOl 177777 

0C0060 

GG0D40 



OOCi 10 



IS: 



2S: 
3S: 



4S: 



5S: 



6S: 
7J: 



177777 177776 



BS. 



9S: 



MOV NUH,-(SP) 
TYPOS 



MOV RO,-(SP) 

MOV R1,-(SP) 

MOV R2,-(SP) 

MOV R3,-(SP) 

MOV R5.-(SP) 

MOV i20200,-(SP) 

MOV 20(SP),R5 

RPL IJ 

NEG R5 

MOVB l'-,l(SP) 

CLP KO 

MOV tSDBLK.R3 

MOVB r ,(R5)+ 

CLR R2 

MOV SDTBL(R0),R1 

SUB R1,R5 

BLT 4J 

INC R2 

BR 3S 

ADD R1,R5 

TST R2 

BNE 5S 

TSTB (SP) 

BMI 7$ 

ASLB (SP) 

BCC bS 

MOVB 1(SP).-1(R3) 

BIS i'O.R^ 

BIS ,R2 

MOVB R2.(R3)+ 

TST (R0)+ 

CMP RO.ilO 

BLT 23 

BGT 8S 

MOV R5,R2 

BR bS 

TSTB (SP)+ 

3PL 9$ 

MOVB -liSP),-2(R3) 

CLRB (R3) 

MOV (SP)+,R5 

MOV (SP)i-,R3 

MOV (SP)+,R2 

MOV (SP)+.R1 



;:PU1 THE BINARY NUMBER ON THE STACK 
;;G0 TO THE ROUTINE 



PUSH RO ON STACK 

PUSH Rl ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

PUSH RG ON STACK 

SET BLANK SWITCH AND SIGN 

GET THE INPUT NUMBER 

BR IF INPUT IS POS. 

MAKE THE BINARY NUMBER POS. 

MAKE THE ASCII NUMBER NEG. 

ZERO THE CONSTANTS INDEX 

SETUP THE OUTPUT POINTE^^ 

SET THE FIRST CHARACTER TO A BLANK 

CLEAR THE BCD NUMBER 

GET THE CONSTANT 

FORM THIS BCD DIGIT 

BR IF DONE 

INCREASE THE BCD DIGIT BY 1 

ADD BACK THE CONSTANT 
CHECK IF BCD OIGIT=0 
FALL THROUGH IF 0 
STILL DOING LEADING O'S' 
BR IF YES 
MSO' 

BR IF NO 

YES—SET THE SIGN 

MAKE THE BCD DIGIT ASCII 

•^E IT A SPACE IF NOT ALREADY A DIGIT 

r'UT THIS CHARACTER IN THE OUTPUT BUFFER 

JUST INCREMENTING 

CHECK THE TABLE INDEX 

GO DO THE NEXT DIGIT 

GO TO EXIT 

GET THE LSD 

GO CHANGE TO ASCII 

UAS THE LSD THE FIRST NON-ZERO' 

BR IF NO 

YES— SET THE SIGN FOR TYPING 

SET THE TERMINATOR 

POP STACK INTO R5 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO Rl 



L 



1 T- 
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4880 
4S81 

489M 
4885 

'im 

4888 
488S 

4890 

4BS1 

4892 

4893 

4B9M 

4895 

48% 

4897 

4898 

4899 

4900 

4901 

4902 

4903 

4904 

4905 

4906 

4907 

4908 

4909 

4910 

4911 

4912 

4913 

4914 

4915 

4916 

4917 

4918 

4919 

4920 

4921 

4922 

4923 

4924 

4925 

4926 

4927 

4928 

4929 

4930 

4931 

4932 

4933 



027334 
027336 

&m 

027352 
027354 

027362 
027364 



012600 

lONHOO 027364 



811151 

000002 
023M20 
001750 
000144 
000012 
000004 



000002 000004 



027374 010046 

027376 016600 000002 

027402 005740 

027404 111 000 

027406 006300 

027410 016000 027416 

027414 000200 



027416 

027416 026506 

027420 026746 

027422 026722 

027424 026762 

027426 027150 



027430 012737 027564 

027436 012737 000340 

027444 0100H6 

0274H6 010146 

027450 010246 

027452 010346 



000024 
000026 



SOTBL: 
SDBLK: 



HOV 
TYPE 

nov 
nov 

RTI 

10000. 

1000. 

100. 

10. 

.BLKU 



(SP)+,RO 
.SDBLK 
J(SP),4(SP) 
(SP)+,(SP) 



;;POP STOCK INTO RO 
;;NOU TYPE THE NUMBER 
; ;RDJUST THE STACK 

;; RETURN TO USER 



;»»«»»»««»»»»♦»«»»««**»»♦♦»*»♦»««#*«♦»«*»»♦***»»******»*»**» 

.SBTTL TRAP DECODER 

:«THaS ROUTINE WILL PICKUP THE LOUER BYTE OF THE "TRAP" INSTRUCTION 
«flND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
#0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 

;«G0 TO THAT ROUTINE. 



JTRAP: MOV RO.-(SP) 

MOV 2(5P),R0 

TST -(RO) 

M0V8 (P0),RO 

ASL RO 

MOV ITRPAD(RO),RO 

RTS RO 



SBTTL TRAP TABLE 



SAVE RO 

GET TRAP ADDRESS 
BACKUP BY 2 

GET RIGHT BYTE OF TRAP 
POSITION FOR INDEXING 
INDEX TO TABLE 
GO TO ROUTINE 



»THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
»BY THE -TRAP" INSTRUCTION. 



iTRPAD: 



ROUTINE 



iTYPE 

iTYPOC 

ITYPOS 

STYPON 

STYPOS 



;;CALL=TYPE 
; CALL=TYPOC 
;CALL=TYPOS 
;;C«.L=TYP0N 
; CftLL=TYPD5 



TRAP"fO(10H400) 
TRAP-H( 104401) 
TRAP*2( 104402) 
TRAP4^3( 104403) 
TRflP+4( 104404) 



TTY TYPEOUT ROUTINE 
TYPE OCTAL NUMBER (UITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE OECinAL NUMBER (UITH SIGN) 



.SBTTL POUER DOWN AND UP ROUTINES 



iPOUER DOMN ROUTINE 

iPURON: MOV iSILLUP.atPURVEC 

MOV t340,9tPURVEC42 

HOV RO.-tSP) 

MOV R1,-(SP) 

MOV R2,-(SP) 

MOV R3,-(SP) 



:SET FOR FAST UP 

PUSH RO ON STACK 
PUSH Ri ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 



0:CD6 Pil 



49MM 

MSMfa 

S?M7 
W948 

4950 
495 i 
49Sa 
4353 
4954 
4955 

49!^ 
4958 
4959 
49b0 
49b 1 
4%2 
49b3 
49b4 
49b5 
49(>b 
49b7 
49b8 

4971 
4972 
4973 
4974 



11 - DZCD6-8 MACYll 
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02757 
02747 




27(b54j 1-JUL 
UP ROUTINES 



U00024 
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RM,-(SP) 



M13 



:;push r4 dm stack 
IIpush R5 on ST«CK 



l&>SiuP?SlPWRVEc'i?S^ S VECTOR 



02747b 
027502 

mi 

027514 

m& 

027522 
027524 
02752b 
0275^ 

02754b 

027554 
027Sb2 
0275b4 
0275bb 
027570 



00077b 



01370b 
005037 

012b05 
Q12b04 
012b03 
0. fi02 
0* ^bOl 
C .bOO 
Qu^737 
012737 
104400 
031124 
01271b 
027572 
0427bb 
000002 
000000 
00077b 
000000 



.-2 



027570 
027570 
027570 



POWER UP ROUTINE 



tPURUP 
IS: 



027430 
000340 



000024 
00002b 



000020 000002 



027572 000177 000000 



02757b 000000 



SPURNG: 

SPURAO: 
BIC 

SILLUP: 
SSPVRb: 

DISPATCH: 



RETURN: 



flOV 
CLR 
INC 
BNE 
MOV 
NOV 
NOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TYPE 
.UORD 
MOV 
.UORL 
i20,2(SP) 
RTI 
HALT 

BR .-2 
0 

JMP 



SSAVRb.SP 
SSAVRb 
SSAVRb 
IS 

(SP)+,R5 
(SP)+ R4 
CSP)+,R3 
(SP)+,R2 
(SP)+,R1 
(5P)+.R0 

iSPURDN.aiPWi-' £'-■ 
•340,ai?»WRVEC+2 

POUMES 
(PC.+. (SP) 
DISPfltCH 



aRETURN 



.UORO 



;;HANG UP 



GET SP 

WAIT LOOP FUR THE TTY 
UflIT FOR THE INC 
OF UORD 

POP STACK INTO R5 

POP STACK IhTO R4 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO Rl 

POP STACK INTO RO 

:SET UP THE POWER DOWN VECTOR 

f'RI0:7 

REPORT THE POWER FAILURE 
POWER FAIL MESSAGE POINTER 
RESTART AT DISPATCH 

iiRESTART ADDRESS 
CLEAR BIT 

THE POWER UP SEQUENCE WAS STARTED 
BEFORE THE POWER DOWN WAS COMPLETE 
PUT THE SP HERE 



ATTEMPT TO RESTART LAST SECTION 
BEING RUN BEFORE POWER FAILURE 
OCCURRED 

THIS LOCATION HOLDS THE STARTING 
ADDRESS OF THE SECTION BEING RUN 
BEFORE THE POWER FAILURE OCCURRED 
EITHER: BEGIN: 

ERCD12: 

XLOOP: 

CKSAME: 



Dzcoe.pu 

4975 
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fWCYll 27(b5H) 
MTA A8LE5 



N13 



4976 
4'97? 
4S78 
4979 
49flC 

4981 027600 
490? 027602 

027610 



'7612 
?7614 



>»988 027616 

m 
»7b: 




7b42 
7644 
. 7b4b 
5001 027650 

i7t54 
27656 

m 

»7b64 

m 

57674 
»7b76 
5Q13 Q277QQ 
5014 0277Q2 

»770b 
S771Q 
|771§ 
027714 
027716 
5021 027750 
17722 
i772S 

5027 027734 

5028 027736 





004000 
014400 

034 iS) 
044040 
054020 
064010 
074004 




4001 

044042 
054022 
064012 
074006 
002000 
012400 

m 

0H2040 

120 
^.10 
2004 

% 

022202 
032102 
042042 

m 

072006 



02 

05 
Ob 

07 
00 
00 
02 
03 
04 
05 
06 
07 



M°S8 

200 
100 
040 
020 
010 
004 
002 
001 
202 
102 
042 
022 
012 
006 
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;DATA TABLES FOR DATA RELIABILITY TESTS 

;n.PHArOCRIC DECK DATA TABLE 
I CARD IHAGE FORK 



AlPCO: 4000 
14400 
2H200 
34100 
44040 
54020 
64010 
7H004 
4002 
4X1 
24202 
34102 
44042 
54022 
64012 
74006 
2000 
12400 
22200 
32100 
42040 
52020 
62010 
72004 
2002 
2001 
22202 
32102 
42042 
52022 
62012 
72006 
1000 
11400 
21200 
31100 
41040 
51020 
61010 
71004 
1002 
1001 
21202 
31102 
41042 
51022 
61012 
71006 



COLUm 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 



ASCII 

& 

A 

8 

C 

D 

E 

F 

G 

H 



I 

J 
K 
L 
f1 
N 
0 
P 
Q 
R 
] 
S 
* 

\ 
0 

/ 

5 
T 
U 
V 
U 
X 
Y 

z 

V 

*■ 

> 



PUNCH 
12 



12 
12 
12 
12 
12 
12 
12 
12 8 
12 9 
12 8 
12 8 
12 e 
12 8 
12 



1 
2 
3 
4 
5 
6 
7 



12 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 



HfllfCCC - 11 

ozcoe.pu 

SOCT 0277M0 

5030 0277M2 

5031 K77MM 

^^^^ 
503S K775M 
:3b 027756 



5040 



OZCOe-8 nfiCYll 27(b54) 
DATA TABLES 

000000 
010400 
020200 
030100 
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B14 



*2 0S777i 

5043 027774 

5044 02777fe 

5045 030000 
50% 030002 

18^ m 

5049 030010 

181? 8S8i^ 

5052 030016 



§8^ 

5074 




>061 
5062 
5063 
5064 

5065 030040 

181^ m 

5066 030043 

18^ m 

5071 0300% 




060010 
070004 




030061 



020202 
030102 
040042 
050022 
060012 
070006 
004000 
014400 
024200 
034100 
044040 

81^ 

074004 
004002 
004001 
024202 
034102 
044042 
054022 
064012 
074006 



200 
201 
202 
203 

206 
207 
210 
220 
212 
213 
214 
215 
216 
217 
100 
101 



0000 
10400 
20500 
30100 
400^0 
50C20 
60010 
70004 
0002 
0001 
20202 
30102 
40042 
50022 
60012 
70006 
4000 
14400 
24200 
34100 
44040 
54020 
64010 
74004 
4002 
4001 
24202 
34102 
44042 
54022 
64012 
flLPEND: 74006 

:fiLPHftNUNERIC DECK DflTft TABLE 



;49 


SPACE 


^ANK 


;50 


1 


1 


;5i 


2 


2 


;52 


3 


3 


;S3 


4 


4 


;54 


5 


5 


;55 


6 


6 


;56 


7 


7 


;57 


8 


8 


;58 


9 


9 


;59 


• 

• 


8 2 


;60 


• 


6 3 


;61 


3 


O LI 

D 4 


;62 


8 5 


;63 




8 6 


;64 




8 7 


;65 


& 


12 


;66 


A 


12 I 


;67 


8 


12 2 


;68 


C 


12 3 


;69 


D 


12 4 


;70 


E 


12 5 


;71 


F 


12 6 


;72 


G 


12 7 


1 ■ •9 


u 
n 




/4 


I 


12 9 


75 


[ 


12 8 2 


76 




12 8 3 


77 


< 


12 8 4 


78 


( 


12 8 5 


;79 


+ 


12 8 6 


80 


1 

• 


12 8 7 



AlPCDP: 



.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



COLUMN 


ASCII 


PUNCH 


200 


;1 


& 


12 


201 


2 


A 


12 1 


202 


3 


B 


12 2 


203 


;4 


C 


12 3 


204 


5 


0 


12 4 


205 


6 


E 


12 5 


206 


;7 


F 


12 6 


207 


8 


G 


12 7 


210 


9 


H 


12 8 


220 


;10 




12 9 


212 


;U 




12 8 2 


213 


12 




12 8 3 


214 


13 




12 8 4 


215 






12 B 5 


216 


15 


+ 


12 8 6 


217 


16 




12 8 7 


100 


17 




11 


101 


18 


J 


11 1 



SEQ 0170 



fihircec - u - Dzcoe-B 

DZCDfi.PU 



S083 


0300b2 


102 


509S 


0300&3 


103 




030(Xi4 


lOM 




030065 


105 


5087 


030066 


106 




030067 


107 


sm 


03(5070 


110 


50% 


030071 


120 




030072 


112 


scse 


030073 


113 




03007M 


114 




Q3Q075 


115 


so% 


0'i007b 


116 


so% 


030077 


117 




030100 


040 


5098 


030101 


041 


509^ 


030102 


042 


5100 


030103 


043 


5101 


03010M 


044 


5102 


030105 


045 


51C3 


030106 


046 


510H 


030107 


047 


510S 


030110 


050 


5106 


030111 


060 


5107 


030112 


052 


5108 


030113 


053 


5109 


030114 


054 


5110 


030115 


055 


5111 


030116 


056 


5112 


030117 


057 


5113 


030120 


000 


511M 


030121 


001 


5115 


030122 


P02 


511& 


030123 


003 


51. '7 


030.' 24 


004 


511B 


030125 


005 


5119 


030126 


006 


5120 


030127 


007 


5121 


030130 


010 


5122 


030131 


020 


5123 


030132 


012 


5124 


030133 


013 


5125 


030134 


014 


512b 


030135 
030136 


015 


5127 


016 


5128 


030137 


017 


5129 


030140 


200 


5130 


030141 


201 


5131 


030142 


202 


5132 


030143 


203 


5133 


030144 


204 


513M 


030145 


205 


513S 


030146 


206 


5136 


030147 


207 



fWCYU 27(654) l-JUL- 
OATA TPBLE5 
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.BYTE 


102 


.BYTE 


103 


-BYTE 


104 


.BYTE 


105 


.BYTE 


106 


.BYTE 


107 


.BYTE 


110 


• BYTE 


120 


.BYTE 


112 


.BYTE 


113 


.BYTE 


114 


.BYTE 


115 


.BYTE 


116 


.BYTE 


117 


.BYTE 


40 


-BYTE 


41 


.BYTE 


42 


• BYTE 


43 


.BYTE 


44 


-BYTE 


45 


.BYTE 


46 


-BYTE 


47 


.BYTE 


50 


.BYTE 


60 


.BYTE 


F2 


-BYTE 


53 


.BYTE 


54 


• BYTE 


55 


.BYTE 


56 


.BYTE 


57 


.BYTE 


0 


• BYTE 


1 


.BYTE 


2 


.BYTE 


3 


.BYTE 


4 


.BYTE 


5 


.BYTE 


6 


.BYTE 


7 


.BYTE 


10 


.BYTE 


20 


.BYTE 


12 


-BYTE 


13 


-BYTE 


14 


.BYTE 


15 


.BYTE 


16 


.BYTE 


17 


• BYTE 


cOO 


.BYTE 


201 


.BYTE 


202 


.BYTE 


203 


.BYTE 


204 


.BYTE 


205 


• BYTE 


206 


.BYTE 


207 





K 


11 2 


;20 


L 


11 3 


;2i 


H 


11 4 




N 


11 5 


;23 


0 


11 6 




P 


11 7 


;25 


0 


11 8 


;26 


R 


11 9 


;27 


I 


11 8 2 




1 


11 8 3 


;29 


1 


11 O Li 

11 8 4 


:30 


} 


11 o c 

11 8 5 


;31 


i 
t 


11 8 6 


:32 


11 8 7 


:33 


0 


□ 


:34 


/ 


n 1 
0 1 


i35 


5 


0 c 


;36 


T 


0 3 




u 


O LI 

0 4 


:38 


1 ■ 

V 


0 5 


i39 


U 


0 6 


;4u 


X 


0 7 


:41 


Y 


0 8 




Z 


0 9 




\ 


n o 3 
0 8c 


1111 

:44 




n o ^ 
0 8 3 


11^ 


A 


n n Li 
0 8 4 


;46 




o a c 
0 8 5 


;"7 


> 


n o c 

0 8 6 


:H8 


n 

/ 


n D 7 
0 8 7 


;49 


SPACE 


BLANK 


;50 


t 
I 


• 

1 


;51 


2 


c 


;5c 


3 


3 


;53 


4 


4 


r"ii 

;54 


5 


r- 

5 


;55 


6 


6 


;56 


7 


7 


;57 


8 


Q 

a 


;58 


9 


9 


;59 


• 

• 


8 e 


;60 


i 


8 J 


;61 


9 


8 4 


;62 




Q C 

8 b 


;63 




8 b 


;64 


M 


a 7 


•65 




12 


;66 


A 


12 1 


67 


B 


12 2 


68 


C 


12 3 


69 


D 


12 4 


70 


E 


12 5 


71 


F 


12 6 


;72 


G 


12 7 



fIfllNCCC - 11 
DZCDB.Pil 

5137 Q3C150 

5138 Q30151 

liH? ^ii§ 

5141 030154 
5144 030157 



DZCDB-8 rWCYll 27''b54) 
OATfl TABLES 

210 
220 

2i4 
215 
21b 
217 



0301b0 
0301&2 
030184 
030166 
030170 
030172 
0X174 

m 

030202 





030252 





ooonoo 

000001 
000002 
070004 
060010 
050020 
040040 
1100 



010400 
001000 

004000 
171111 
172222 
173333 
174444 
175555 
17666b 
L77777 
061010 
161212 
171313 
171414 
171515 
17161b 
171717 
052020 
172121 
172323 
172424 
17is|5 
172626 
172727 
173030 

173434 
173535 
173636 
173737 
044040 
174141 



l-JUL-77 06:39 P«GE 100 



.BYTE 210 

.BYTE 220 

.BYTE 212 

.BYTE 213 

.BYTE 214 

.BYTE 215 

.BYTE 21b 

flLPENP: .BYTE 217 

; BINARY DECK DATA TABLE 

6INCD: 0 
1 
2 

70004 

bOOlO 

50020 

40040 

30100 

20200 

10400 

1000 

2000 

4000 

171111 

172222 

173333 

174444 

175555 

176666 

177777 

blOlO 

lbl212 

171313 

171414 

171515 

171blb 

171717 

52020 

172121 

172323 

172424 

172525 

172626 

172727 

173030 

173131 

173232 

173434 

173535 

173636 

173737 

44040 

174141 



Di4 



73 
74 
75 

76 
77 
78 
7? 
80 



COLUMN 
1 
2 
3 
4 
5 
6 
7 
8 
S 
10 
11 
12 
13 
14 
15 
16 
17 
18 
IS 
20 
21 
22 
23 
24 
25 
26 
27 
2B 
2S 
30 
31 
32 
33 
34 
35 
3b 
37 
38 
39 
40 
41 
42 
43 



< 
( 
♦ 
I 



PUNCH 
BLANK 



12 8 
12 9 
12 8 

12 " 
12 



12 8 
12 8 
12 8 



2 
3 
4 
5 
b 
7 



nfilNOEC - U - DZCDB-B NfiCYli 27(b5M) 
DZCDB.PU OflT« TABLES 

sisi 03030b lbH^A^ 

SIV 030310 17M3H3 

5194 ^IH 17%% 

5195 (30316 17M7M7 








3304 Ic 
Q30Hm 
C30H1& 



5333 030MS0 

US m 

5236 030423 

"17 




523S 

52M2 Q30M31 

5243 030432 

5244 030433 




76464 
76565 

T^O^O 
77J71 
77272 
77373 
177474 
177575 
177676 

m 

130303 
170S04 
170S0S 
170606 
170707 
163210 
170123 
177654 
174567 



000 
020 
010 
007 
006 
005 
004 
003 
002 
301 
040 
100 



l-JUL-77 08:3S F»flGE 101 



164242 
174343 
174545 
1746% 
1747H7 
165050 
175151 
165252 
175353 
175454 
175656 
175757 
156060 
]76161 
176262 
176363 
176464 
176565 
176767 
177070 
177171 
177272 
177373 
177474 
177575 
177676 
30101 
20202 
130303 
170404 
170505 
170606 
170707 
163210 
170123 
1776S4 
BINENO: 174567 



E14 



44 
45 
% 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 



•BINARY DECK DPTfl TABLE 

I THE VALUE IS THE ENCODED VALUE, WHICH ORS THE OCTAL REPRESENTATION OF 
•ROUS ONE THRU SEVEN 



6INCDP: 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
• BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



0 

20 

10 

7 

6 

5 

4 

3 

2 

1 

40 
100 



COLUMN 


ASCII 


PUNCH 


;1 


SPACE 


BLANK 


2 


9 


9 


3 


B 


8 


;4 


7 


7 


5 


6 


6 


|6 


5 


5 


;7 


4 


4 


B 


3 


3 


9 


2 


2 


10 


1 


i 


11 


0 


0 


12 




11 



Moireec - n - ozcoe-e fwcru 27(b5H) 

OZCOe.Pll DATA TABLES 
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F14 



52S5 030M3M 
52% 03043S 




030M5c 
030H54 
030H55 
030S|6 

030HC>0 
030S61 

§0462 
04^4 
030465 
030466 
030467 
030470 
030471 
030472 
030H73 
030474 
030475 
030476 
030477 
030500 
J30501 
030502 
030503 
030504 
030505 
030506 
030507 
030510 
030S11 

0MS14 
030515 
030516 
17 




200 
067 
U7 
177 
207 
267 

W7 
046 
056 
077 
047 
067 
057 
077 
105 
127 
137 
107 
127 
117 
137 
147 
167 
157 
147 
167 
157 
177 
204 
227 
216 
237 
227 
217 
237 
246 
267 
256 
277 
247 
257 
277 
305 
327 
317 
337 
307 
327 
337 
34 V 
367 
357 
377 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
-BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



200 

67 

117 

177 

207 

267 

317 

377 

46 

56 

77 

47 

67 

57 

77 

105 

127 

137 

107 

127 

117 

137 

147 

167 

157 

147 

167 

157 

177 

204 

227 

216 

237 

227 

217 

237 

246 

267 

256 

277 

247 

257 

277 

305 

327 

317 

337 

307 

327 

337 

347 

367 

357 

377 



%IfO£C - 11 - OZCOe-e fWCVll 27lfa5M) l-JX-77 
07C0S.P11 DfiTfl TABLES 



53^ 



I0S35 
030536 
030S37 

030540 



»S3 




03061b 





03 



5776 



0H2 



^7^ 
357 

8!i 

033 
007 
027 
017 
037 
1Mb 
037 
347 
237 

020040 
040 

005012 
015 




005015 
044524 

^072 
015 
036440 
Kll24 

maMo 

042524 




020040 
000040 
012 
000012 

04b412 
041505 
055104 
020040 
020056 



052123 
04351b 
042522 
040440 

031012 
044440 
041525 
040440 
052101 
052123 



040 



04711? 
020124 
030060 

hS 031C__ 
___J75 044523 
042514 052040 
14 



042522 

Q5144Q 047111 

0201K 040504 

050040 052101 



eiNENP: 

SPftCE: 
CRLF: 



044501 STMES: 

030455 

042103 

051040 

006502 



051101 STflDDR: 
040440 
051523 
042522 

030060 
05151b 
044524 
04211b 
020101 

Q20U60 
047522 

052040 
046450 
027460 
024460 
020060 
043516 
051505 

m> 

042101 
045107 
040524 
042524 



08:3S PPG£ 103 

bEQ c: 'S 



BYTE 


347 


b7 


BYTE 


367 i 


68 


BYTE 


357 


b9 


BYTE 


23 


70 


BYTE 


12 


71 


BYTE 


33 


72 


BYTE 


7 


If J 


BYTE 


27 


;74 


BYTE 


17 


^75 


BYTE 


37 


;7b 


BYTE 


14b 


77 


BYTE 


37 


. TO 

■ ' a 


Bz-TE 


347 


;7S 


BYTE 


237 


1 80 


ASCII 


/ / 




ftSCIZ 


/ / 




ASCII 


<12><i2><12> 




flSCIZ 


<15><12> 




ASCIZ 


< 15> < 12> < 12> "MfllNDEC-l 1-D2CDB 



fiSCII <15><12>"STflhTING ftODRESSES ftRE:" 

ftSCII <15><12>"200 = INSTRUCTION fiND DflTft TEST" 

ASCII <I5><12>-210 = ERROR FUNCTION TEST (M-lOOO/n-200)" 

ftSCII <15><12>"220 = SINGLE TEST LOOP" 

ASCII < 15X12) "240 = READ SINGLE DATA PATTERN TEST" 



ifiiNOEc - li - ozcoe-B 

Dzcoe.Pii 





5%1 

^ 

53b5 
S3bb 
53&7 
5386 
5389 
5370 
5?571 
5372 
5373 
5, 

5378 
5377 
5378 
5379 
5380 
53ei 

I 

5384 
5385 
5368 
5387 
5368 
53B9 
5390 
5391 
5392 
5393 
5394 
5395 
53% 
5397 
5396 
5399 
5400 
5401 
5402 
5403 
5404 
5405 
5406 



031084 

I07i 

ir 
11 

031114 
031122 



031140 
0311% 
031154 
031182 
031170 
1176 
1177 

_1204 
031212 
"3l|20 

_ i2§4 
031242 
031250 



8 



1258 

,.1284 
031272 
031300 



031305 
031312 
031320 
031328 

031333 
031340 
031348 
031354 
031382 
031370 
031378 

0J1401 
031408 
031414 
031422 
031430 
031438 
031444 
051452 



028515 
000051 



111 

052514 
041503 
020104 
0H8114 
U48505 
117 
015 
040524 
041505 
047440 
043517 
047508 
054514 
051525 

005015 
0H4522 
043517 
051505 

015 
051 lOG 
040504 
051505 

C15 
051105 
030515 
051105 
052508 
047117 
051524 

015 
051105 
030515 
031115 
051122 
047125 
020118 
000123 



HftCYll 27(854) 
OATfl TPSLES 
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Hi4 



SEQ Ul7b 



047122 052040 051505 




031012 
042440 



_ 11 
052123 
031081 



050012 
043040 

renH 

020055 
040440 
05212C 

051012 
052122 
044524 
020108 
040522 
048522 
044440 
008505 

Q47105 
043518 
041511 
051524 

042412 
047111 
040524 
051524 

042412 
047111 
030082 
047522 
041518 
052040 
000 

042412 
047111 
030080 
0300&G 
051117 
052103 
042524 



030085 
051122 
047125 
020118 
024040 
030080 



053517 
044501 
047440 
042S22 
044527 
052124 
052040 

051505 
051440 
047117 
051120 
020115 
051105 
02011b 
000012 

042524 
048040 
052040 
000 

052118 
020107 
052040 
000 

052118 
020107 
020080 
020122 
044524 
051505 



052118 

020107 
027480 
042440 
043040 
047511 
C52123 



.flSCIZ <15><12>"250 = ERROR FUNCTION TEST (H-1200)' 



POMHES: .ASCII <15><12><12>-P0UER FAILURE OCCURRED - WILL flTTEflPT TO* 



.flSCIZ < 15X12) "RESTART SECTION OF PROGRfiM FORMERLY IN USE"<15><12> 



rtLOGIC: .flSCIZ <15><12> "ENTERING LOGIC TESTS" 



MDflTfl: .flSCIZ <15><12>"ENTERING DflTfl TESTS" 



H1200E: .ftSCIZ <15><12> "ENTERING m200 ERROR FUNCTION TESTS" 



niOOOE: .ftSCIZ <l5xi2>-ENTERING M1000/M200 ERROR FUNCTION TESTS" 



114 



flfilNOEC - il 
DZCOB.PII 



DZCOe-B mCYU 2/(654) 
WJU TABLES 



5407 
5*408 
540<J 
5H10 
|Mli 

?413 
5H1H 
54 15 

S417 

smq 

54?0 
5421 
5422 
5423 
5424 
5425 
542b 
5427 
5428 
542S 
5430 
5431 
5432 
5433 
5434 
543£ 
54% 

5438 
543<3 
5440 
5441 
5442 
5443 
5444 
5445 
5446 
5447 
5448 
5449 
5450 
5451 
5452 
5453 
54S4 

fsll 

5457 
54S8 

545S 
5460 



03145" 
031462 
031470 
J1476 

m 

031526 

031542 
DJ1C50 
031556 
031564 
031572 

C31576 
031604 
03i612 
031620 
031626 
031632 
031640 
0316% 
031654 

031676 
331704 
J31706 
031714 
031 .'?2 
031730 
0317% 
0317M1 
031746 

031770 
1774 



047105 
043516 
047517 




051lii 
044523 
042040 
040520 
020116 
047111 

005015 
020123 
051040 
020122 
052105 
005015 
041440 

m\ 

041511 
0P0115 
0"7503 
^00105 
>015 
n23 

;i040 

^0122 
;3S20 
015 
044440 



1( 

OSFOl 



0424 12 
047111 
043516 
052101 
052124 
042524 
000107 

051120 
040503 
040505 
051047 
000047 
044124 
047117 
020105 
047516 
043040 
0S0103 
051516 

051120 
040503 
040505 
051447 
000 
052012 
052116 

m 

000040 

14c 




032016 
032024 
032032 



C3i 
03l 
032066 
032074 

032102 
032110 



041440 
043040 
044124 
052520 
050120 

015 
047524 
051101 
020117 
047111 
047510 

000 



051101 
047522 
020105 
020124 
^1105 
0S1012 
042522 
051504 
044124 
052520 
050120 



042524 
040440 
020120 
051505 
042514 
041040 
051105 



042514 
020101 
051105 
052123 



051505 
042122 
042504 
051505 

047105 
044524 
044504 
052123 
047522 
020125 
046117 

051505 
042122 
042504 
047524 

042510 
051105 
046040 
053440 

047515 
046114 
051504 
020115 
047111 
047510 
000 
051505 
041440 
052040 
020105 
020124 
051105 



l-JUL-77 08: 3S PftGE 105 



HLOOP: .ft5CIZ <15><12>"ENTERING ft LOOP ON TEST SELECTED BY USER" 



SEo or? 



MPATS: .ftSCIZ <15><12>"EhTERINC SINGLE DRTfl PATTERN TESTING" 



MSGl: .ASCIZ <15><12>/PRE5S CARD READER 'RESET'/ 



M5G2: .ASCIZ <15><12>/THEN CONTINUE DIAGNOSTIC FROM CPU CONSOLE/ 



nSG3: .ASCIZ <15><12>/PRESS CARD READER 'STOP'/ 



f1SG4: .ASCIZ <15)<12>/THE INTERRUPT LEVEL WAS / 



MSGS: .ASCIZ <15><12> /REMOVE ALL CARDS FROM THE INPUT HOPPER/ 



H5G6: .ASCIZ <15><12> /RESTORE CARDS TO THE INPUT HOPPER/ 



I iHlNOEC - 11 - DZCOe-B HfiCYll 27(fa54) 
I CZCDB.Pil DflTfl TABLES 



5%1 
B4b2 
5%3 
54b4 
54b5 
5466 
5467 
5466 
5469 
5470 
5471 
5472 
5473 
5474 
5475 
5476 
5477 
5479 
5479 
5480 
5481 
5482 
5483 
5484 
5485 
5486 
5487 
5488 
548^ 
5490 
5491 
5492 
5493 
5494 
5495 

54% 

5497 
5498 
5499 
5500 
5501 
5502 
5503 
5504 
5505 
5506 
5507 
5508 
5509 
5510 
5511 
5512 
5513 
5514 



032111 
032116 
03? 124 

831140 
0321% 
032154 
032162 



17c 



^2 

032200 
032206 
032214 
032222 
032227 
032234 
032242 
032250 
032256 

032276 
032304 
032312 
032320 
032326 
032334 
032342 
032350 
032353 
03236U 
032362 
032370 
032376 
032404 
0324 12 
032420 
032426 
032433 
032440 
032446 
032454 
032462 
032463 
032465 
032472 
032500 
032S06 
032514 
032522 
032530 
032536 
032540 
032546 



015 
052520 
0S2125 
052123 
020122 
052S23 
046522 
0201 le 

051105 
045503 
052110 
051505 
015 
051040 
042523 
045503 
042S22 
051101 
005015 
020104 
052040 
044527 
047125 
044124 
020120 
042510 
052125 
110 
000122 
005015 
047440 
050040 
047440 
042122 
051440 
052111 
015 
052116 
044124 
052117 
114 
015 
015 
044524 
053117 
051125 
042507 
040527 
046517 
020123 
051101 
043105 



030412 
0%J14 
052520 
0'n501 
051120 
042522 
042040 

(W7125 
047510 
041440 
046040 
041440 
047440 
005012 
046105 
051440 
051105 
051523 

800115 
44012 
047504 
042510 
041524 
042504 
020105 
043117 
044440 
040 
050117 

042524 
043106 
042511 
020106 
040440 
044514 
044440 
043012 
047440 
020105 
041517 

012 
041412 
047117 
020105 
043040 
051522 
020131 
052040 

040505 
051117 



020056 
047440 
020124 
042513 
051505 
040440 
053517 

044524 
050120 
042510 
043511 
046517 
lib 
027062 
040505 
040524 
050040 
020056 

04611/ 
047127 
051440 
020110 
020122 
04C503 
052040 
0S0U6 

042520 

051101 
040440 
042503 
040503 
0421 lb 
020120 
116 
047522 
020106 
044120 
046105 



052501 
046472 
047531 
047111 
040440 
051106 
044510 

041040 
020105 



J14 
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f1SG7: ASCII <15><12>/1. PULL OUTPUT STACKER PRESSURE ARM Do»JN / 



SEQ 0178 



.ASCII a5><l2>/UNTIL HOPPER CHECK LIGHT COf^ES ON/ 



-ASCIZ <15><12><12>/2. RELEASE STACKER PRESS. ARM/ 



f1SG8: .ASCII <15><12><12>/H0LD DOWN THE SUITCH UNDER THE CAP OF THE INPUT / 



.ASCIZ /HOPPER/ 

r1SG9: .ASCII <15><12>/TEAR OFF A PIECE OF CARD AND SLIP IT IN/ 



.ASCII <15><12> /FRONT OF THE PHOTOCELL/ 



IaIcII <li><li> /CAUTION: move YOUR FINGERS AUAY FROM THIS / 



.ASCIZ /AREA BEFORE CONTINUING!/ 



K14 




03ZS7h 



C32b64 
32672 

m 

0327m 
032722 



0327M0 
0327% 

0327^ 
?776 



053MM0 

P 

^116 
»3M 005015 
»42 K2040 
b50 052125 



125 
052123 
020122 
047HH0 



rwifCEC - 11 - DZCOB-B nUCYU 27(fa54) 
DZCOe.Pll DflTfl TflSLES 



7111 

1 
1 

043518 
047520 
051124 
044501 
0C0O41 
042114 
047440 
020124 
042513 
042524 
027116 
000116 
051101 
044107 
041505 

027105 
040505 
047503 
047440 
041440 
047101 
041501 

052040 
052117 
043117 
044440 
0514H0 
000 
041505 
020040 
047040 
020040 
020104 
020040 
020040 
000123 
0H4120 

0H71U 

020124 
051501 
000 
046505 
044124 
042116 
020116 
0461C5 
G43516 




)15 
026513 
020124 

mil 

026440 
020122 
047122 
043106 
051101 
020104 





033210 
033216 
033224 
033232 



1 

, _J1_ 
047524 
052040 
050116 
040SS4 
015 
020113 
040503 
046525 
041440 
047503 
044123 
020040 

m'i 

015 
051101 
005015 
032461 
0S144Q 

015 
042105 
020105 
052111 
054502 
040517 



043^01 
020441 
047510 
042510 
052520 
041501 
040S07 
042520 
042510 
042040 
044514 
044103 

027111 
052040 
020101 
051105 
040440 
020104 
046120 
ijl 

020115 
042510 
052125 
045503 
042012 
020040 
042122 
020040 
051101 
020114 
020102 
040527 
046101 
000 
041012 
000131 
044502 
053440 
052105 
051012 
020131 
047503 
047511 
051040 
044504 
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fISGlO: .flSCIZ <15><12><12>/!!! WRONG RESPONSE TRY AGAIN !!•/ 



nSGll: .ASCIZ <15><12>/H0LD THE OUTPUT STACKER GATE OPEN. THEN/ 



SEQ or/s 



MSG12: .ASCII <15><12>/ DARK-LIGHT CHECK / 



.ASCII < 15X12) /I.E. - TEAR A CORNER OFF A CARD AND PLACE IT/ 



, ASCIZ <1S><12> /AT THE BOTTOM OF THE INPUT STACK/ 



I1SG13: .ASCIZ <15><12>/DECK CARD NUM CARD COL SHB WAS/ 



riSG14 
NSGIS 
MSG 16 



.ASCIZ < 15><12> /ALPHA / 
.ASCIZ <15><12> /BINARY/ 
.ASCIZ <15><12>/BIT 15 MAS SET/ 



MSG17; .ASCII <15><12> /REMEDY THE CONDITION BY RELOADING INPUT HOPPER/ 



-HlNOEC - il - DZCOe-B HftCYll 27(bSM) 
::CDB Pi I OftTfl TABLES 



5570 
5571 
5572 
5573 
557M 
55-^ 
557b 
5577 



033240 
0332% 
0332S4 
Q332S5 

sip 

0333OH 
033312 
033320 
03332H 
033332 



044440 
044040 
122 
015 
^110 
m2040 
020065 
020123 
052105 



050116 052125 

050117 042520 



5 

051101 
042101 




053412 
40503 
41505 
51120 
51047 
20047 
47117 
47117 
20104 
51105 
23440 
71 



0474M0 
30125 
00114 




020123 





052111 
042122 
020113 
051505 
051505 
052502 

041440 
042522 
040440 
047503 
042525 
052111 
02011b 
040520 

042122 
042504 
047440 
047111 

041440 
020040 
020040 
047040 
042440 
000123 
020124 
053524 

0444H^ 
044040 

^im 

o%ni 

052124 



m 

023524 
<7S04 
42 



044524 
047117 
041440 
042514 
0%111 
020040 




041440 
052Slb 
052040 
047117 
052440 

047440 
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.ASCII <15><12>/UITH CARD DECK - PRESS 'RESET' BUTTON/ 



•flSCIZ <15><12>/0N CftRD READER AND 'CONTINUE' SUITCH ON CPU PANEl 



NSG18: .ASCIZ <15><12>/CARD READER IS OFF-LINE/ 



flSGlS: .ASCIZ <15><12>/ COL. WAS CARD NUM. ERRORS/ 



f1SC20: .ASCIZ <15><i2>/PUT ANY TUO CARDS IN INPUT HOPPER/ 



MSG21: .ASCIZ <15><12>/PRESS END OF FILE BUTTON/ 



NSG22: .ASCII <15><12>/1. PUT 'HALT'SW. DOWN AND PRESS/ 



.ASCII <15><12>/ CONTINUE ON THE CONSOLE UNTIL/ 



.ASCII <15><12>/ ONE OR MORE CARDS ARE READ-/ 



ozcoe.pu 



OZCDB-B nACYll 27(65H) 
MTA TABLES 



5f-.3b 
5fc37 

Sfe42 
SbH2 
5f»44 
Sb45 
5b4& 

5fc48 

5b50 
5b5l 
Sb52 
5653 
5654 

36b6 
5657 
S658 
565S 
5660 

mi 

5663 
5664 
5665 



5668 
566S 
5670 
5671 
5672 
5673 
5674 
5675 
5676 




5627 0337% 027104 





034067 
034074 

03411? 
034116 
034124 
034132 
034 140 
034144 
034152 
034160 
034166 
03«'r4 
uJ4$02 
034210 
034216 

034223 
034230 
034236 
034244 
034252 
034260 
O: 



034340 
034346 
024354 
034362 
034363 



042522 
020105 
05144^ 




051120 
«> >7 x<23 
0200% 
051440 
040524 
046123 

015 
020104 

mi 

042510 
051111 
"1505 



iO 
042104 
047440 
0201QS 

105 
015 



ill 
020012 
020104 
047111 
040511 
044524 
0%517 
041440 
514 





1145? 
051505 
051124 
047503 
046511 
042516 
024531 

046012 
044124 
051104 
0^3117 
042040 
042105 
124 

352^ 
051040 
042524 
027111 
042510 
042522 
020106 
041523 



027062 
020116 
051117 
052114 
052040 

m 

116 
020040 
047503 
042525 
047107 
020103 
041440 
047117 

024040 
020064 
020123 
020114 
052116 
046125 
052517 
000 

040517 
020105 
051505 
052040 
051505 
052040 
047111 
042510 
052111 
043505 
020122 
027105 
040440 
051523 
044124 
050117 
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.ASCII <15><12>" (FOR THE 11/34 PRESS HLT/SS)' 



.ASCII <l5><l2><12>/2. THEN RESTORE HRLT SU. TO NORtIPL POSITION 



.fiSCII <15><12>/ RND CONTINUE DIRGNOSTIC FROtI CPU CONSOLE/ 



.flSCIZ <15><12>" (11/34 PRESS CNTRL J CONT SINULTflNEOUSLY)* 



nSG23: .ASCII <15><12>"L0AD THE ADDRESS OF THE DESIRED TEST INTO THE" 



.ASCII <15><12>"SUITCH REGISTER - I.E. THE ADDRESS OF THE SCOPE 



044412 05151b 



.ASCII <15><12>-IN5TRUCTI0N AT THE BEGINNING OF THE TEST" 



.i«iNOec - 
Dzcoe Pii 



11 - DZCOe-B 



(m507 
020107 
0H2S10 

if? 

02011b 
020123 
♦7J 



03SH72 





oawsbb 



5730 




005015 
0112504 
020104 
044103 
051511 
050117 
123 
015 
0201 lb 
020123 
0471U 
044527 

005015 
042040 
042105 
042524 
Q4bl01 
05211b 
Q2010S 
044103 
]15 
_J123 
44440 
047111 
051527 



HflCril 27(b54) 
WJf^ T(«LCS 




041440 

hii 





047115 
043117 
052040 

052012 
051120 
047503 

042523 

051040 
042524 
044524 

052012 
QS1120 
047503 
042525 
041524 

0H75i4 
051505 
050040 
047122 
042525 
020117 
053523 

042522 
QSi.105 
04245b 
047524 
030474 

42^22 
047117 
020105 
044103 

112 
524 
051105 
020123 
041101 
020131 
042510 
051522 
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04c 
047111 
052040 
051505 

042510 
051505 
05211b 

ffi 

020124 n5G24: 

042522 

052111 

043505 

020122 

047117 

042510 
05x505 
05211b 
051440 
000110 

042101 M5G25: 

051111 

052101 

053040 

044440 

044124 

052111 

044507 
025440 
02005b 
051440 
035nbl 

047105 
051523 
044524 
053523 
000 

044510 nSG2b: 

052123 

043111 

044124 

0%111 

043117 

031051 



.fl5CIZ <15><i2>"T«N PRESS CONTINUE SWITCH" 



.flSCII <15><12>"SET DESIRED SWITCH REGiSTER OPTIONS" 



.flSCIZ <15><12>"THEN PRESS CONTINUE SWITCH" 



.ASCII <15><12>"L0flD DESIRED PATTERN VALUE INTO THE SWITCH" 



.fiSCII <15><12> "REGISTER - I.E. INTO SWS<U:0>' 



.ASCIZ <15><12>"THEN PRESS CONTINUE SWITCH" 



.ASCII <15><12>/THIS TEST VERIFIES THE ABILITY OF THE/ 



.ASCIZ <15><12)/RS1200 TO DETECT MIS-REGISTERED CARDS/ 



.zcoe.Pii 

035030 

5733 03SC3b 

S73M 03S0W 

S735 035052 

S73b 035060 
5737 

S73C OJSOfcM 

5;3S 03SC72 

S7H0 035100 

S7H1 035106 

oasim 

574J 035122 

^74M 0351 X 

5745 035136 

S74b 033144 

57M7 035147 

57H8 035154 

5749 035163 

5750 035170 

5751 035176 

5752 035204 

5753 035212 
5/54 035220 

5755 035226 

5756 QjS23M 
5757 

5756 035236 

5759 035244 

5760 03S2S2 

5761 035260 

5762 035266 

5763 035274 

5764 035302 
5765 

035306 
035314 
035322 
330 




373 
035400 
035406 
035414 
035422 
035425 

8^440 
035446 



OZCDe B 



030060 
042504 
0%'*40 
043505 
042522 
042122 

005015 
0404H0 
042510 
041501 
050123 
020114 
0"4440 
044124 
052520 
015 
042520 
042522 
047524 
044524 
031456 
044514 
020107 
Q42S04 
000123 

005015 
020104 
020113 
021124 
046125 
041040 
047111 

005015 
020123 
052105 
051040 
020124 

122 

015 
052103 
042524 
040507 

015 
044124 
042122 
042504 
042504 

015 
020124 
020114 
030062 



iftCYll 27(654) 
DATA TPBLES 
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B15 



SEO C183 



052040 
042524 
051511 
051511 
020104 
000123 

040515 
042116 
020116 
02C105 
041505 
040503 
052116 
020105 
124 
044012 
027122 
042506 
051440 
047117 
047440 
052123 
047506 
040524 



051042 
044103 
044514 
051440 
020104 
0HH514 
000107 

051120 
051042 
020042 
050105 
051105 

QH3Q12 

052123 
047111 
044412 
020105 
051040 
020122 
122 
052012 
047515 
051522 
037460 



020117 
052103 
051055 
042524 
040503 



0425 l.T 
052040 
0%i20 
020101 
040511 
042122 
020117 
047111 

050117 
020040 
020122 
041505 
033040 
020106 
047111 
020122 
046111 



040505 
041505 
044107 
047510 
042502 
045516 



051505 
051505 
047524 
040505 
047522 

047125 
020116 
040440 
000 
020123 
040503 
040505 
047125 

051505 
042504 
030455 
054450 



nSG27: .ASCII <15><l2>/nflKE AMD THEN PLftCE fl SPECIAL CARD INTO THE INPUT- 



.ASCIZ <1S><12>/H0PPER. REFER TO SECTION 6.3 OF LISTING FOR DETAILS/ 



riSG28: .ftSCIZ <15><12>/"READ CHECK LIGHT" SHOULD BE BLINKING/ 



f1SG29: .ASCII <15><12>/PRESS "RESET" TO REPEAT ERROR/ 



.ASCIZ <1S><12>/FUNCTI0N TEST AGAIN/ 



NSG30: .ASCII <15><12>/IS THE CARD READER UNDER/ 



.ASCIZ <15><12> /TEST WOOEL RS-:W(Y OR N)/ 



C15 



IftlfCCC - li 

nzcoe.Pii 




ii2 

03552U 



DZCOe-B 



OMTMHO 

050101 
0MM522 

OHlS^ 
0H7117 
0514M0 



>M2 



0357% 
035754 
0357b2 





Q3bObb 
03b07M 
03&102 
03&10H 
03()112 



005015 
042515 




015 
031463 
040524 
020105 
000 




052116 

g2116 
2123 
015 
033063 
050120 
050115 
051505 
005015 
020067 
045503 
046125 
052123 
015 
030064 
045503 
045503 
000124 
005015 
020061 



riflCYll 27(654) 
DATA TABLES 



020122 



040412 
051511 

m 

051120 
052101 

052040 



47504 
052116 

m 

042522 
051105 
04452" 
000 

046040 
042524 

U 



044514 
051505 
061524 
K1440 
046101 
020056 
020056 
000 
052012 
020040 
051105 
054524 
000124 
051524 
051440 
051105 
020114 
000 
)12 



041440 
052040 





050117 
105 

020123 
042510 

_1L 
)2Slt 
052503 
05210i 
047117 
041524 
044507 
051440 
043516 

052123 
040504 
0521U1 
052123 

052123 
043117 
042516 
000124 
031524 
042520 
044440 
047503 
042524 

052123 
fl/SlO 
042440 
052040 

031524 
040524 
043040 
042524 

052123 
044520 
042510 
051505 
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nSG31: .ftSCII <15><12>/«T THIS TINE SET THE flPPWPRWTE/ 



.ASCII <15><12>/SHITC»€S OH T« SR. (REFER TO THE/ 



.flSCIZ <15><12>/00CUnENTflTI0N ON SUITCH REG.STER SETiINGS)/ 



SEQ oies 



051524 032124 
051440 040524 



MSG32: .flSCIZ <15><12>/TST33 DflTfl LATE TEST/ 



f1SC33: .flSCIZ <15><12>/TST34 OFF-LINE TEST/ 



HSC34: .ftSLiZ <15><12>/TST35 SPECIAL INT. COND. TEST/ 



I1SG35: .flSCIZ <15><12)/TST36 HOPPER EMPTY TEST/ 



riSG36: .flSCIZ <15><i2>/TST37 STACKER FULL TEST/ 



nSG37: .ASCIZ <15><12>/TST40 PICK CHECK TEST/ 



MSG38: .ASCIZ <15><12>/TST41 STACKER ERROR TEST/ 



fiAiNoec - 11 



- ozcoe-B 




03b22M 
036342 



03C>264 



03b272 
036300 




^4^ 
031416 
036424 
036432 
^440 

036446 
03645M 
036462 

036470 
036'*7b 
036504 
036512 
036520 



i: 

020124 
U00113 
005015 
040463 
026523 
052123 
041440 
042524 

036272 



052123 
051040 



»0i24 
J4502 

m 

044524 
046125 

103 
020116 
020124 
052123 
042103 
052117 
051101 

015 
044524 
052101 
052520 

0S2S02 
051104 
042522 
051105 
024501 



fWCYU 27(654) 



mm 

032124 
043117 
050117 
044103 

044107 
041505 

032124 
044515 
044507 
042105 
020104 
000 



D15 



JJ4 
044103 

051524 
020040 
042522 
051105 
051101 
052123 



052101 
043505 

12 




051525 
051511 
041450 

^4502 
7516 
020124 



047111 
044514 
047117 
042523 

^ 

042522 
051105 
024503 
041440 
042105 

044412 
046101 
0475U 
051514 

020123 
051505 
044507 
024040 
047040 



052111 
040532 
050040 
000 

044507 
024040 
047040 
042514 
041040 

044516 
055111 
020116 
000105 

042101 
020123 
052123 
042103 
052117 
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N5C3S: .ftSCIZ < 15>< 12> /TST42 EOF & HOPPER CHECK/ 



riSG40: .ftSCIZ <15><12>/TST43 OfWK-LlGHT CHECK/ 



NSG41: .ftSCIZ <15><12>/TST43P niS-REGISTERED CARD TEST/ 



• EVEN 

; ERROR ITEMS MESSAGE TABLE 

EMI: .ASCII "STATUS REGISTER (CDS) BIT07 NOT SET BY" 



.ASCIZ <15><12>"INITIALIZATI0N PULSE" 



EM2: .ASCII "COLUMN COUNT REGISTER (CDC) NOT CLEARED BY" 



.ASCIZ <15><12>"INITIALIZATI0N PULSE* 



EMS: .ASCII "BUS ADDRESS REGISTER (CDA) NOT CLEARED BY" 



lAIfCCC - 11 

ozcoe.Pii 



- 02COa-B 



C¥.TR TRSLES 
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SEQ Oldb 



5894 
58% 
58% 
S8*?7 
58% 
5899 
5«W0 

sgoi 

\^ 

590M 
5905 
5906 

5907 
5908 
5909 
5910 

5912 
5913 
5414 
5915 
591b 
59J7 
5918 
59io 
5920 
5921 
59£2 
5S23 
5924 
5925 
592b 
5927 
5928 
5929 
5930 
5931 
5932 
5933 
5934 
5935 
593t> 
5937 
5938 
5939 
5940 
5941 
5942 
5943 
5944 
5945 
594b 



03652b 
036534 
036541 
03654b 
036554 
036562 

036570 
03657b 



.12 
03bb20 
036625 

036633 
036640 
036646 
036654 
036662 
036670 
036676 
036702 
03b710 
03b7]b 
036724 
036732 

036734 
03&742 
036750 
036756 
036764 
036772 
037000 
037003 
03''!n0 
03701b 

037024 
037032 
037040 
037046 
037054 
037062 
037070 
037075 
037102 
037110 
03711b 

037124 

837132 
37140 
037146 



041440 
ff)2105 
015 
044524 
101 



052123 
051040 
Q42S24 
05211b 
044440 
042522 

103 
02011b 
020124 
052123 
042103 
CS2117 
020105 
005015 
040517 
044527 
045114 
000123 

047503 
04144D 
051040 
042524 
041504 
020124 
042522 
015 
047520 
046103 

052502 
051104 
0H9S22 
051105 
024501 
040440 
047524 
015 
042504 
044124 
047440 

052502 
051104 
042522 
051105 



^12514 
0'<1040 
0'H4i2 
O^blOi 
047511 
051514 

052101 
C43505 
C20122 
C47106 
CH151b 
CI52103 

fHbll7 
IH7503 
(J42522 
051105 
1)24503 
1)40440 
1)47524 
)42S02 
342504 
)44124 
)47440 



D52514 
D52517 
D43505 
320122 
320051 
346103 
104 
041012 
34&527 
340505 

020123 
051505 
044507 
024040 
047040 
046102 
041040 
046012 
020104 
040440 
042516 

020123 
051505 
044507 
024040 



OSilOl 
131 
04451fc 
055111 
02011b 
000105 

051525 Ef14: 
051511 
047503 
051524 
051117 
000 

0%525 Zn5: 

047125 

044507 

024040 

047040 

0%102 

045040 
020104 
040440 
04251b 



047115 EMb: 

05211b 

051511 

041450 

04751b 

040505 

020131 
020122 
000122 

042101 EI17: 
020123 
05212.'^ 
042103 
052117 
020135 
105 
040517 
044527 
045114 
000123 

042101 EMIO: 
020123 
052123 
042103 



.ftSCIZ <15><12>-INITIflLI2flTI0M PULSE' 



.ftSCIZ -STATUS REGISTER CONTENTS INCORRECT** 



.ASCII "COLUMN COUNT REGISTER fCDC) NOT ABLE TO" 



.flSCIZ <15><12>"BE LOADED WITH ALL ONES" 



.ASCII "COLUMN COUNT REGISTER (CDC) NOT CLEARED" 



.ASCIZ <15><12>"BY POWER CLEAR" 



.ASCII "BUS ADDRESS REGISTER (CDA) NOT ABLE TO BE" 



.ASCIZ <15><12> "LOADED WITH ALL ONES" 



ASCII "BUS ADDRESS REGISTER (CDA) NOT CLEARED" 



IfllNOEC - 11 
DZC08.P11 



5SH7 

5950 
l^l 

l<}5M 

5955 



OZCOe-B riACYll 27(65H) 
OPTA TABLES 



l-JUL-77 08:39 WWE 115 



F15 




5958 
5959 
59b0 
5%1 
59Ct2 

5%H 
5%S 
59b(> 
59b7 
5%e 
5969 
5970 
5971 
597a 
597-' 



5975 
597fe 
5977 
5978 
5979 
5980 
5981 
5982 
5983 
598M 
5985 
598t» 
5987 
5988 
5989 
5990 
5991 
5992 
5993 
599H 
5995 
599b 
5997 
5998 
5999 
bOOO 



037213 
037220 

J72H2 

Q372i2 
03^270 

037275 
037302 
037310 
03731b 
03732H 
037332 
0:j7340 
0373H1 
0373Hb 
037354 
0373b2 
037370 

037374 
037402 
037410 
03741b 
037424 
037432 
0J7440 

037443 
037450 
03745b 
0374b4 
037472 
037500 
03750b 
037514 



03751b 
037524 
037532 
037540 
03754b 
037554 
0375b2 



103 
04bll7 

020124 

047111 
040503 

103 
046117 
042522 
044504 
020124 
Q201E2 
ObO 
015 
052123 
051040 
042524 
031504 

047503 
04bll4 
042111 
051440 
052111 
0200bl 
04211b 

105 
024040 
0244b5 
044440 
0521C1 
043505 
020122 
000051 

044502 
041040 
042523 
051440 
020123 
052123 
042103 



054502 
051105 
OSllOl 

047117 
042514 
042101 
020104 
04bl03 
047117 
042522 
020107 
042122 

047117 
042514 
042101 
020104 
046103 
044502 

047412 
052101 
043505 
020122 
000051 

05211b 
051105 
047040 
052105 
044510 
042523 
000 

051122 
044502 
051440 
02011b 
051525 
051511 
041450 



020124 
052111 
020124 
040524 
042522 
051105 
024523 



liii 



050040 
041440 
000 

051124 
020122 
020131 
047516 
040505 

042101 
020101 
000 

051124 
020122 
020131 
04751b 
040505 
030124 

02010b 
051525 
051511 
041450 



047522 
042040 
052117 
053440 
02011b 
047503 



051117 
030524 
052105 
052123 
051040 

rw4 

U51504 



051117 
020123 
04711 1 
05252" 
04^507 
024040 
0520SO 



.flSCIZ <15><12>-BY POWER CLEAR" 



E«ll: .ASCII -CONTROLLER READY DID NOT CLEAR ON" 



.ASCIZ <15><12> "READING A CARD" 



EM12: .ASCII "CONTROLLER READY DID NOT CLEAR 8IT00" 



.ASCIZ <15><12>"0F STATUS REGISTER (CDS)' 



Ef113: .ASCIZ "CONTROLLER DID NOT SET UITHIN 1 SECOND" 



Em4: .ASCIZ "ERROR (BIT15) SET IN STATUS REGISTER (CDS)' 



EM15: .ASCII "BIT OR BITS SET IN STATUS REGISTER (CDS) THAT" 



fWINOEC - ]i - 02^0B-B 

ozcoe.Pil 

f>C03 037600 0%12S 
bOOM 037606 020 12M 



fIRCYil 27(6541 l-JUL-7 
DUlfk TflCLES 



124 
051412 
020104 
042502 




04c 
051440 
020123 
'1 

oosil 

047510 
047516 
000 

044511 
052520 



1 

040524 
042522 

IK 




6030 040014 

6031 040022 




040042 
040050 




6032 
6035 

604 
604 
604 
604 
60«4 
604fi 

6046 040124 

6047 040132 
^046 040140 
6049 040146 
bOSO 040154 

6051 040162 

6052 040170 
b053 0S0176 
6054 



040076 
040104 
040112 
040120 



047516 
OSilOS 
047440 
042522 

047440 
042522 
044123 
047040 
053101 

047111 
0S012S 
042522 
041517 
042106 
0201C1 
051105 
046105 



111 
0%125 
020124 



051505 
043516 
051440 
020123 

04050J 
046103 
020104 
047522 
Q5104Q 
044440 
052101 
043505 
000122 

044440 
052522 
041503 
000104 

04444Q 
052522 
041503 
020104 
052517 
052117 
000105 

042524 
020124 
042101 
0S2503 
040440 
044510 
046040 
000 



047510 
047516 
000 

020131 Eni6: 

047111 

0S2524 

044507 

024040 

051440 
020104 
042502 



047524 Eril7: 

041440 

040524 

043101 

042522 

020107 

042122 

040505 

047S03 

0%114 

040505 

020116 

051525 

051511 



052116 Eri20: 

052120 

051125 



_U6 EM21: 
2120 
051125 
020055 
042114 
044040 



051122 Ef122: 

046101 

020131 

051122 

020124 

044107 

053105 



G15 

08: 3<: PAGE 116 

SEQ Q1B8 

.«SCIZ <15><12>-SH0ULD NOT BE" 

.ASCII "SUSY SET IN STATUS REGISTER (CDS)" 

.flSCIZ <15><12>"!T SHOULD NOT BE" 

.ASCII "RESTORING CPU STATUS AFTER READING A CARO" 

.ASCIZ <15><12>"CLEARED CONTROLLER READY IN STATUS REGISTER" 

.flSCIZ "NO INTERRUPT OCCURRED" 

.ASCIZ "AN INTERRUPT OCCURRED - SHOULD NOT HAVE" 

.ASCIZ "INTERRUPT ALREADY OCCURRED AT A HIGHER LEVEL" 



0ZC08.P11 DATA TflSLES 



H15 



386 
&08S 
8090 
WWl 
b0S2 

boqa 

bOSH 
bQ95 
&0% 
604? 
bCm 
bOS9 
blOO 
blQl 

bios 
bloa 

tl04 

bios 

blOb 
bl07 

bioe 



n 103 047117 051124 

lb 0%117 042514 020122 

b057 040214 042522 042101 020131 

020124 042523 



042524 
020124 

' If 





Q'tQ4bl 
0404bb 
040474 
Q40502 
040510 

I? 
04OS' 
040542 
040550 
040|Sb 
040564 
040572 

04057S 
04Dfe04 
040b 12 



lib 
044530 
020124 
054S22 
030124 
052117 
044440 

015 
052524 
044507 
024040 
02b440 
044123 
041040 

054105 
042105 
051117 



040440 
047514 
042514 



044440 



041£ 
020104 
047527 
2506 
6040 
0123 

047522 

mt 

020124 
040524 
042522 
051105 
024523 
052111 
04&125 
000 

047117 
052123 
042515 
024040 
024471 
051440 
116 
051412 
020123 
052123 
042103 
044440 
052517 
000105 

042524 
04b440 
020131 



051122 
0%101 

020124 
042527 
042526 



052116 
0S2120 
051125 
052101 
042040 
042522 
053105 



020122 
032461 
020124 
047111 
052524 
OH4507 
024040 

051440 
020104 



042455 
047101 
047515 
044502 
047040 
052105 

040524 
042522 
051105 
024523 
020124 
042114 



042116 
046505 
041050 



l-JUL-77 08:39 PAGE 117 



EH23; .aSCIZ "CONTROLLER REPDY NOT SET" 



EN24: .flSCIZ "INTERRUPT fiLREflOY OCCURRED PT A LOWER LEVEL* 



SEQ 0189 



EN25: .RSCI2 "AN INTERRUPT OCCURRED AT TWO DIFFERENT LEVELS" 



EM26: .ASCII "ERROR (BIT15) NOT SET If. STATUS REGISTER (CDS)' 



.ASCIZ <15><12>"IT SHOULD BE" 
Eri27: .ASCII "NON-EXISTANT MEHORY (BITOq) NOT SET IN" 



.ASCIZ <15><12>"STATUS REGISTER (CDS) - IT SHOULD BE" 



EM30: .ASCII "EXTENDED MEMORY (BIT05) NOT SET IS STATUS" 




rwiNoec - 11 
ozcce.Pii 



bios 
bill 

bll2 
bll3 
bllM 
C115 
bUb 
bll7 

bue 

bii? 

bl20 
8121 
bl22 
fcl23 
bl24 
bl25 
bl2{> 
bl27 

t\ 

bl 
bl31 
bl32 
bl33 
bl34 
bl35 
bl3b 
bl37 
bl38 
bl39 
bl40 
bl41 
bl42 
bl43 
bl44 
bi45 
bl4b 
bl47 
bl48 
bl49 
blSO 
blSl 
blS2 
bl53 
bl54 
bl55 
bl5b 
bl57 
bl58 
bl5<3 
blbO 
bibl 
blb2 



040634 
04ab42 

m 

040&b2 

040t>70 

84SLM 
040712 
040720 
04072(, 

340734 
40741 
0407% 
0407S4 

377b 
041004 
041012 
041020 
04102b 
041Q30 
04103b 

041044 
041052 
C410bQ 
Q410|6 
041074 
041102 
041110 
041113 
041120 
54112b 

041 127 
041134 
041142 
041150 
04115b 
0411b4 
041172 
041174 
0^120? 
D41210 
04121b 
041224 
041232 
041240 



OZCDe-8 

oSfsib 

020124 
040524 
015 
051511 
041450 

054105 
9^2105 
051117 
052111 
047516 
020124 
040524 
015 
051511 
041450 

<7503 
il524 
i2502 
061104 
042522 
051105 
024501 
g5015 
061122 

047503 
051524 
047503 
041440 
051040 
042524 
041504 

015 
051117 

000 

122 
0<;0122 
044514 
052125 
020104 
051105 
0E1117 
005015 
0320bl 
020124 
047111 
052524 
044507 
024043 



rtfiCYll 27(b54) 
DATA 19BLES 



l-JUL-77 08:39 PAGE 118 



115 



SEQ 0190 



032460 
020124 
051511 
052524 

051504 

042524 
046440 
020131 
032060 
020124 
047111 
052524 
051012 
042524 
051504 

052116 
047440 
020123 
051505 
044507 
024040 

047111 
041505 

052116 
047440 
052514 
052517 
043505 
020122 
051 
044412 
042522 



040505 
043117 
04251b 
041440 
042522 
042440 

341050 
020051 
042523 
051440 
020123 
052123 
042103 



020051 
042523 
051440 
123 
043505 
020122 
000051 

04211b E(131: 

m 

020051 
042523 
051440 
123 
043505 
020122 
000051 

047105 En32: 

020106 

042101 

020123 

052123 

042103 

047503 
000124 

047105 EM33: 

020106 

047115 

052116 

051511 

041450 

041516 
052103 



•fiSCIZ <15><12> "REGISTER (COS)' 



. ASCII "EXTENDED MEMORY (BIT04) NOT SET IN STATUS" 



.ASCIZ <15><12> "REGISTER (COS)' 



.ASCII "CONTENTS OF BUS ADDRESS REGISTER (CDA)' 



.ASCIZ <15><12> "INCORRECT" 



•ASCII "CONTENTS OF COLUMN COUNT REGISTER (CDC)' 



042504 
02650b 
041040 
051101 
042101 
051122 

052111 
04751b 
020124 
340524 
042522 
051105 
024523 



EM34: 



.ASCIZ <1S><12>"INC0RRECT" 

.ASCII "READER OFF-LINE BUT CARD READER ERROR" 



ASCIZ <15><12>"(BIT14) NOT SET IN "TATUS REGISTER (COSi 



Ji5 



DZCDB.PU 



11 - ozcoe-B 



NflCYll 27(b54) 
MTP TABLES 



&lb3 

bl&H 

blSS 

bl&r 

bib. 

bibe 
bib9 

bPO 
bl71 
bl7? 
bl73 
bi7M 
fal75 
bl7b 
bl77 
b.'^fl 

b:7'3 
biao 

bi81 
bl82 

biea 

bl84 

bias 

biBb 
bl87 
bi88 
bi89 
bl90 
bl91 
bl92 
bl"33 
bl«54 
61% 
bl% 
bi«37 

Lisa 

bl'M 
b20Cl 
b201 
b20? 
b20J 

barn 

b2JS 
b£J6 
b207 
b?08 
bc09 

b2in 

b2ll 
b2l2 
b-!l 
b, 4 
b2l5 
b2lb 



0M12% 

o-aas? 

0M125H 
OMlj 
OHlJ 
DM 127b 
0MI30H 
0M1312 
OS I 320 
04132b 
041334 
041342 
041350 

041353 
0413b0 
0413bb 
041374 
041402 
041H10 
0414U 
04l42^ 

04im;2 

0414*^0 
0414Hb 
04145 ^ 
D414b2 
CN1470 
04147t 

04F.: 

O'^i^/Ob 
04'bl4 
0^1522 
1541530 
04153b 
041544 
041552 
0415b0 

0415b4 
041572 
041bOa 
041b06 
0Mlbl4 
0mb22 
041b30 
04iS3b 
041844 

041b4b 
04lb54 



000 

lib 
047101 
047117 
047117 
020105 
0314b0 
052SD3 
00S015 
040524 
042522 
051105 
024523 

103 
05211b 
051440 
020123 
052123 
Ll20ab2 
020051 
051122 

04751b 
051105 
053440 
051120 
047523 

u':&n40 

030040 

104 
040514 
044502 
047040 
052105 
052123 
051040 
042524 
051504 

043117 
04251b 
030524 
052117 
044440 
052101 
043505 
020122 
0CXX)51 

043117 
04251b 



020117 
044523 
052040 
0%055 
041050 
020051 
051122 
047111 
052524 
044507 
024040 
COO 

047117 
020123 
040524 
042522 
051105 
041450 
047111 
041505 

044440 
0S2522 
052111 
041517 
020122 
0531U5 
000 

052101 
042524 
030524 
052117 
044440 
052101 
043505 
020122 
000051 

02b50b 
024040 
024462 
051440 
02011b 
051525 
051511 
041450 



051124 
044524 
020117 
047111 
052111 
041517 
042105 
051440 
020123 
052123 
042103 



042524 
043117 
052524 
044507 
021440 
042104 
047503 
000124 

0521 lb 
052120 
020110 
051505 
052101 
04bl05 



020101 
024040 
0244bO 
051440 
0201 1£> 
051525 
051511 
041450 



044514 
044502 
047040 
052105 
052123 
051040 
042524 
051504 



1-JII.-77 08:3S PflGE US 



En35: .ASCII "NO TRANSITIOH TO ON-LINE (BIT03) OCCURRED" 



SCO OlSl 



.ASCIZ <15><12>"IN STATUS REGISTER (CDS)' 



ENSB: .ASCIZ "CONTENTS OF STATUS REGISTER 12 (COD) INCORRECT* 



En37: .ASCIZ "NO INTERRUPT WITH PROCESSOR AT LEVEL 0" 



EM40; . ASCIZ "DATA LATE (8IT10) NOT SET IN STATUS REGISTER (CDS)" 



EM41: .ASCIZ "OFF-LINE (BIT12) NOT SET IN STATUS REGISTER (CDS)' 



02b50b 044514 
024040 044502 



EM42: .ASCII "OFF-LINE (BIT12) SET IN STATUS REGISTER" 



czcDe.Pii 



ozcoe-B 




QM17M3 
0H175O 
0M175& 
OH 1764 
04i77g 

^6 
)14 
042022 
042030 




52 042144 

53 042162 

54 042160 

55 04|l^ 

58 SlilS 

59 042216 
50 042224 

51 

52 0422X 

53 042236 

54 042244 



042266 
042274 
042302 
042307 



020124 

120 
044103 
0410S0 
020061 
Q42S23 
051440 

m 

020062 
000051 

8441s? 
041050 
020051 
2523 
1440 
:i23 
2123 



047105 
043040 
041050 
020051 
047111 
052524 
044507 

pg 

020124 

^2114 
1040 

042S22 
042510 
044502 
051440 
020116 
^1525 
051511 
041450 
015 



fWCYll 27(654) 
DATA TABLES 



l-JUL-77 08:39 PftGE 120 



K15 



SEO 01% 



851M4S 
052101 
043505 

122 



020104 
042502 

041511 
041505 
052111 
047516 
020124 
040524 
042522 
051105 
041450 



052111 
047516 

m 

042522 
051105 
041450 



020104 
046111 
052111 
042523 
051440 
020123 
052123 
042103 
026440 
044123 
047040 
0GQ105 

042101 
045503 
030524 
052105 
052123 
051040 
042524 
051504 
020012 



051525 
051511 

mi 

04751b 
000 

020113 Efi43: 

020113 

031461 

020124 

047111 

052524 

044507 

021440 

042104 



020113 EM4H: 

020113 

031061 

020124 

047111 

052524 

044507 

021440 

042104 



043117 Ef145: 

020105 

031461 

020124 

040524 

042522 

051105 

024523 

044440 

052517 

052117 



041440 En46: 
024040 
024464 
044440 
052101 
043505 
020122 
051 
020055 



.fl5CIZ <15><12>- - IT SHOULD NOT BE" 



.flSCIZ "PICK CHECK (BIT13) NOT SET IN STATUS REGISTER i2 (COD)' 



.flSCIZ "STACK CHECK (BIT12) NOT SET IN STATUS REGISTER 12 (COD)' 



.ASCII "END OF FILE (BIT13) SET IN STATUS REGISTER (CDS)' 



.ASCIZ <15>U2>" - IT SHOULD NOT BE" 



.ASCII "READ CHECK (BIT14) SET IN STATUS REGISTER (CDS)* 



flSCIZ <1S)<12>" - IT SHOULD NOT BE" 



L15 



••hINOEC - ii 
C:CD9 Pll 



- DZCOe-B 



052111 
046125 
02012S 



mCfn 27(t)5H) 
DATA TABLES 



l-JUL-77 06:39 PACE 121 




0S1H40 
020104 
042502 

044103 
041050 
020051 
047111 



Ef147: 




»83 
6294 
b28S 
6286 

6290 

6291 

6292 

6293 

6294 

6295 

62% 

6297 

6296 

6299 

6300 

6301 

6302 

6303 

630H 

6305 

630b 

6307 

6306 

6309 

6310 

6311 

6312 

6313 

631S 

631S 

6316 

6217 

6318 

6319 

6320 

6321 

6322 

6323 

6324 



042414 
042416 
042424 
042432 
042440 

042444 
042452 
042460 
466 
♦74 
_S02 
042510 
042516 
042524 
042530 
042536 
042544 

042552 
Q42|60 
042S66 
042574 
042602 
042610 
042616 
042624 
042632 
042635 
042642 
042650 
042656 

042657 
042664 
04S72 
042700 
042706 
0427 H 
042-22 
04f730 
04<;73b 



'3 

005015 
020124 
042114 
041040 

047105 
043040 
041050 
020051 

^ 

051105 
024523 
051440 
005015 
020124 
042114 

042522 
042510 
044502 
047440 
052101 
043505 
020122 
020051 
042523 

015 
052111 
046125 

000 

110 
020122 
020113 
031061 
051440 
020123 
052123 
042103 
052117 



026440 
044123 
047040 
000105 

020104 
046111 
052111 
043117 
052524 
044507 
024040 
047040 
052105 
026440 
044123 
041040 




020106 
051525 
051511 
041450 
047516 
124 
020012 
051440 
020104 



050117 
044103 
041050 
020051 
040524 
042522 
051105 
024523 
051440 



047510 
047516 
000 

052111 
042523 
051440 
020123 
052123 
042103 

044440 
052517 
052117 



043117 EMSO: 

020105 

031461 

051440 

020123 

052123 

042103 

052117 

044440 
052517 
000105 

041440 EM51: 

824040 
24464 
052123 
051040 
042524 
051504 
020124 

020055 
047510 
042502 



042520 En52: 

041505 

052111 

043117 

052524 

044507 

024040 

047040 

052105 



.ASCII "HOPPER CHECK (BIT02) SET IN STATUS REGISTER (CDS)" 



.ASCIZ <i5><12>" - IT SHOULD NOT BE" 



.ASCII "END OF FILE (BIT13) OF STATUS REGISTER (CDS) NOT SET" 



.ASCIZ <15><12>" - IT SHOULD BE" 



.ASCII "READ CHECK (BIT14) OF STATUS REGISTER (CDS) NOT SET" 



.ASCIZ <15><12>- - IT SHOULD BE" 



.ASCII "HOPPER CHECK (BIT12) OF STATUS REGISTER (CD'*) NOT SET" 



NfllNOCC - 11 - DZCDB-e MflCYll 27(b5H) 
OZCOe. PI 1 0«TA TflSLES 



b327 WiZThO Wi'AH 



&328 



&338 

b|MO 
b3Ml 
b3M2 
6343 
b34M 
&3H5 
b34b 
b3M7 



OHXlb 



43&ib 



042 

0S33Sb 

0M33bS 

0M337? 





lis 

OHmo3 

041050 
0200S1 
042S23 
051440 
J123 
123 





020124 
041440 



03 

020124 
044514 

105 
02010b 
Q24040 
^b3 

052123 
051040 
04252M 
051504 



mi's 

041040 000105 



020104 

052524 
044507 
024040 
Q42040 
052117 
0%103 
044527 
040522 
047511 
047440 
04251b 

040505 
041505 
052111 
04751b 
020124 
040524 
042522 
051105 
041450 



042122 
042504 
047522 
020124 
030070 
OSlJOl 

042122 
042504 
047522 
020124 
043U7 
04251b 

04211b 
04450b 
044502 
042440 
047440 
052101 
043505 
020122 
000051 



l-JUL-77 08: 3S PflGE 122 



M15 



SEQ 0194 



EH53: 



Ef154: 



043117 
020105 
031%! 
051440 
020123 
052123 
042103 
042111 

040505 
044124 
05151b 
02011b 
02b51b 
000 

020104 
020113 
0320bl 
020124 
047111 
052524 
044507 
021440 
042104 



051040 EMSS: 

020122 

020122 

04751b 

044124 

000104 

051040 EnSb: 
020122 
020122 
04751b 
02bS0b 
000 

047440 EM57: 

042514 

030524 

051122 

02Q10b 

051525 

051511 

041450 



.ftSCIZ <15><12>- - IT SHOULD BE" 

.flSCII "END OF FILE (BIT13) OF STATUS REGISTER (COS) DID NOT* 



.flSCIZ <15><12>"CLEAR WITH TRANSITION TO ON-Llh^" 



.ASCIZ "READ CHECK (eiT14) NOT SET IN STATUS REGISTER 12 (COO)' 



.ASCIZ "CARD READER ERROR BUT NOT BOTH CARD" 



, ASCIZ "CAPD READER ERROR BUT NOT OFF-LINE" 



.ASCIZ -END OF FILE (BIT13) ERROR OF STATUS REGISTER (COS;' 



ozcoe PI I 



.i - 02C0e-B 



MflCYU 27(654) 
DATA TABLES 



ti 

bMOS 

6M08 
bMOq 
1>410 
bSll 
&412 
6413 
SHIM 
&415 
b41b 
bMl? 
b4JR 

bsai 

b42M 
b425 
b4?b 
b427 
b4?t) 
b42S 
b430 
6*131 
b-<32 




101 
_111 
0S1106 
043117 



Sir 



04 
04371 

7" 
7i 

.734 

m 

043754 
043762 
043770 
5- 37''^ 
044004 




107 
60 
1440 

_j0123 

^103 
00S015 
042S23 
052111 
C46125 
000 



61 
047522 
051440 
020123 

mm 



042522 
051105 
024523 
047516 
020124 
051440 
020104 



l-JUL-77 08: 3S PK£ 123 



N15 



SEQ 0195 



04337b 040504 040524 042440 EN60: 

_-Jl 04>fC4 051122 051117 024040 

6382 043412 044502 030524 Q24%1 

b383 043420 047H40 



EN61: 



.ASCIZ -DflTfl ERROR (BITll) OF STATUS REGISTER (COS)" 



.ASCIZ -DATA LATE (BITll) ERROR OF STATUS REGISTER (COS)' 



020051 
020122 
040524 
042522 



042455 Eri62: 
047101 
047515 
044502 
042440 
047440 
052101 

044507 
024040 
000 

051501 En63: 
051525 
051117 
047040 
047522 
051524 
000 

020101 En64: 
047111 
052111 
043117 
052524 
044507 
024040 

020124 
020055 
047510 
042502 



.ASCII "NON-EXISTANT MEMORY (BIT09) ERROR OF STATUS' 



.ASCIZ < 15 ><12> "REGISTER (CDS)' 



.ASCIZ "DISASTEROUS ERROR BUT NO ERROR BITS SET" 



.ASCII "DATA PACKING (BITOl) OF STATUS REGISTER (CDS)* 



.ASCIZ <15><12>"N0T SET - IT SHOULD BE" 



Bib 



nfilfCeC - U - DZCOB-B MftCr'lI 27(£,54) 
DZCDe.Pll D*<Tfi TABLES 



bH33 
faH35 

bH% 

b437 
bH38 
faH3S 
bHMO 

b4'"l 
b44^ 
bMM3 
b444 
b4"S 
bM4b 
b4S7 
b4S8 
b44q 
b^SO 
b4Sl 
b452 
o453 
bH54 
b455 
b45b 
b457 
b45e 
b45'9 
b4b0 
fc%l 
bHhZ 
b4b3 
b4b4 
b4fa5 
b4fab 
b4b7 
b4bB 
b4b'3 
8470 
b47l 
b47a 
b473 
b474 
b47S 
b47b 
b477 
b478 
b47S 

bHll 
b4a2 
b483 
b49M 

b48S 
h4efc 



0HHOO5 
04H018 



044034 
044042 



044060 
0440bfe 
044074 

0440^b 
044104 
044112 
044120 
04412b 
044134 
044142 
044150 
044151 
04415b 
044 lb4 
044172 

044175 
044202 
044210 
04421b 
044224 
044232 
044240 
04424b 



844254 
442b2 
044270 
044£7b 
044304 



12j 
Q20104 
04?1Q4 
04^111 
040Slb 
041506 

051107 
042517 
020124 
000105 

047503 
051524 
052123 
051040 
042524 
051504 
047503 
124 
015 
044123 
041040 
047522 

117 
051525 
042522 
052501 
020101 
044440 
02b51b 
04b440 



024040 
020040 
020051 
051504 
1450 




020051 
K1504 
WJ450 

051520 
024040 
020040 
020051 



047510 
042SO2 
042522 
020107 
054522 
113 
050012 
0%501 
020123 
043501 



05211b 
047440 
052101 
04350E 
020122 
020051 
051122 

a20C'.2 
0S2517 
020105 
000 

042104 
040440 
051523 
042523 
051124 
02011b 
J40S20 
042117 



041520 
024040 
020040 
020051 
042104 
024040 

041520 
024040 
020040 
020051 
042104 
041450 
020040 
000051 
041520 
024040 
020040 



0%125 
£W*40 
051523 
044502 
042040 

047522 
042040 
047518 
042522 



04^105 
02010b 
051525 
051511 
041450 
047111 
041505 

020055 
042114 
042532 



041040 
042104 
041440 
020104 
U50101 
04751b 
045503 
000105 



020051 
050123 
041450 
020040 
020051 
051520 

020051 
050123 
041450 
020040 
020051 
041504 
024040 

020051 
05012a 
041490 



l-JUL-77 06:3*9 PPGE 124 



Erfe5: .ASCII -SHOULD BE flOORESSING BINARY DECK" 



.flSCIZ <15><12>"PR0GRfln DOES NOT AGREE' 



Ettbb: . ASCII "CONTENTS OF STATUS REGISTER (CDS) INCORRECT" 



3EQ 31% 



.ASCIZ <15><12>" - SHOULD BE ZERO* 



Ef1b7: .ASCIZ "ODD BUS ADDRESS CAUSED A TRAP IN NON-PACK NODE" 



; ERROR ITEMS HEADER Tfl3LE 

DHl: .ASCIZ " (PC) (SP) (CDS) (COD) (PS)" 



DH2: .ASCIZ " (PC) (SP) (CDS) (COD) (CDC) 



(PS)" 



DH3: .ASCIZ " (PC) (SP) (COS) (CDD) (CDA) (PS)' 



fifiiNocc - n 
Dzcoe.pji 



ozcoe-B 



NfiCYU 27(b54) 



bM87 

bsee 

6493 
bMSH 
bMSS 
b4% 

bsq? 
bssq 

bSOO 
bSOl 

b50^ 

b503 
bSOM 
b50S 

bsob 

b507 

bsoe 

fa509 
bSlO 
bSU 
t512 
b5l3 
b514 
bSlb 
bSlb 
b5l7 
bSl8 
b51«9 

bsen 

b52l 
b522 
b523 
bS2M 

bsas 

b5?S 
b527 

bsa 
bsas 

bS30 
b531 
b532 
b533 
b53S 
fe53S 
b53b 
b537 
b538 
b539 
bSMO 



1W22 

04HM3b 
04MMHM 

0'*H%4 
04MM72 
04V 





Q4H54M Q2HQ4Q 
(5h%52 (B0040 



;i4 

044522 
044530 
044536 
♦4544 
♦4552 
0445M 
044566 
04457M 
044602 
04%10 
044616 
044624 
044632 
044640 
g44f»41 
04 46 
044654 
0446:2 
044670 
044676 
044704 
044712 
044720 
044726 
044730 
044736 
044744 
0447S2 
044760 
044766 
044774 
045002 
045010 
045016 
045024 
045025 
045032 
045040 
045046 
045054 
045062 
045070 
045076 



^0051 
Q5150H 
041450 



040504 
024040 



020051 
0M2104 
041450 
02004 0 

^ 

024040 
g0040 

8421W 
Q414S0 
020C40 
020051 
051520 

nr 



020051 
051504 
041450 
020040 
020051 
040504 
041450 
020040 
051 
015 
02C040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
000102 

ffioSo 
rei504 

041450 
020040 
Q200S1 
040504 
041450 
020040 
051 
015 
020040 
020040 
020040 
020040 
020040 
040527 
020040 



020040 
020051 
042104 
041450 
020040 
020051 
040504 
024040 

020012 
020040 
020040 
020040 
020040 
020040 
020040 
040527 
020040 

041520 
024040 
^0040 
020051 
042104 
041450 
020040 
020051 
041504 
024040 

020012 
020040 
020040 
020040 
020040 
020040 
020123 
020040 



l-JUL-77 08: 3S P9C£ 125 



Clfe 



SEQ 01<3; 



020040 
020051 
040504 
024040 

020051 0H4: 
050123 
041450 
020040 
020051 
041504 
041450 
020040 
000051 



DH5: 



041450 
020040 
020051 
041504 
041450 
020040 
020051 
051520 

020040 
020040 
020040 
020040 
020040 
020040 
020040 
020123 
044123 

020051 DH6: 

050123 

041450 

020040 

020051 

041504 

041450 

020040 

020051 

051520 

020040 
020040 
020040 
020040 
020040 
020040 
02004C 
020040 



.flSCIZ - (PC) (SP) (CDS) (COO) (CDC) (CDfl) 



(PS)" 



.ASCII 



(PC) 



(SP) (CDS) (COD) (CDC) (CDA) (CDA) 



(PS)* 



■flSCIZ <15><12>' 



UAS 



SHB' 



.ASCII 



(PC) 



(SP) (CDS) (CDD) (CDC) (CDfl) (CDC) 



(PS)' 



.flSCIZ <15><12>' 



UPS 



SHB" 



Dlfe 



0ZC08.P11 




DZCOe-B fiftCYll 27(b5H) 
DATA TABLES 



020040 044123 



Q4523b 
Q45244 
045252 



S527b 
5304 

I 

045334 
045342 
045350 
Q4535b 
0453b4 




024040 0H1520 

;i450 



02HO4O g2l03 

020040 
020040 
020040 
020040 

040527 

020040 020040 
000102 




00111b 
001202 
00111b 
001202 
QQOOOO 
QOlUb 
001202 
000000 
]lllb 
1202 
)ll7b 
)Ulb 
11202 
001210 
00111b 
001202 
000000 



001174 
00117b 
001174 
001204 

001174 
00120b 

001174 
001204 
000000 
001174 
001204 
00117b 
001174 
001210 



020051 
024520 




024504 
050050 

020040 
020040 
020040 
020040 
020123 
044123 



001200 
000000 
001200 
00117b 

001200 
00117b 

001200 
00120b 

001200 
00120b 
000000 
001200 
00117b 



l-JUL-77 08:39 PftGE 12b 



DH7: .ASCII " (PC) (SP) (COS) (COO) (COO) (PS 



.flSCIZ <15><12>' 



UPS 



SHB 



.EVEN 

; ERROR ITEnS DPTP TABLE 

DT 1 : SERRPC , SREGb , ITHPO , STPIPl , JREG7 , 0 

lERRPC , SREGb , STMPO , STflP 1 , ITnP2 , SRE67 , 0 



DT2: 
DT3: 
DT4: 
DT5: 
0Tb: 



JERRPC, SREGb, JTMPO, JTMPl , STHPS, $REG7, 0 
JERRPC , SREGb , STflPO , STMP 1 , ST«P2 , STf1P3 , SREG7 , 0 
SERRPC , SREGb , STMPO , STMPl , STnP2 , STriP3 , STriP4 , SREG7 , 0 
SERRPC , SREGb . STMPO , STMP 1 , $TMP4 , SREG7 , 0 



OZCOB. PU 



ozcoe-B 




013705 
013702 

00S037 
0137% 

"7% 



000207 



Elb 



fWCYU 27{b5M; 
DATA TABLES 



l-JUL-77 08:38 PACE 127 



:SUBROUTI^C TO INITIALIZE CSR AND OGR POINTERS 

;<HHI»**»4»»***»«<HHHHHHI»««W»f««W»W»H li HH M mMIIMmMlMi 



SEQ 019) 



001232 
001234 
00123b 
0012HM 
0012% 
133630 
001252 
00125M 
0003M0 
0H5HH0 



SETUP: HOV 

nov 
nov 
nov 

MOV 
CLR 
CLR 
CLR 

nov 
nov 

RTI 



b4S: 



RTS 



COST, CDS 

COCC.CCC 

CDBA.COA 

INTVC.AOINT 

INTVC+£.(ADINT) 

aiNTVC+5 

INTFLG 

TRFLG 

PR7.-(SP) 

•b4i,-(SP) 



PC 



;SET UP STATUS RKISTER PQIHTER 
SET UP COLUm COUNT REGISTER POINTER 
SET UP BUS ADDRESS REGISTER POINTER 

;lOAO address OF INTERRUPT VECTOR 
SET UP CARD READER TRAP VECTOR 

■TO HALT 

•INITIALIZE INTERRUPT FLAG 

j INITIALIZE TRACE FLAG 
PUT NEH PS ON STACK 
PUT NEW PC ON STACK 
POP NEU PC AND PS 

; RETURN TO MAINLINE CODE 



;THIS NARKS THE BEGINNING OF THE NENORY BUFFER AREA UHERE THE 
; CONTENTS OF THE CARD COLUNNS ARE OUNPEO ON READ CYCLES 



bb 12 
bbl3 
bbl4 
bb 15 
bblb 
bbl7 
bbie 
bbl<3 



045442 000000 
000001 



BUFBEG: 0 

.END 



n«INO£C - 11 - DZCD8-B flflCYli 27(S5H) 
OZCDB.PU CROSS REFERENCE 'flBLE 



l-JUL-77 08:39 PftGE 128 



Fib 



ftoiNT ='/.oa:oo2 



AGAIN 

flLPCO 

flLPCOP 

ft.PENQ 

flLPEf# 



000040 



hooo 

K)0Q2 



It. 



045442 



BUFL*C 
BYPfiVS 
CARD in Q2S73b 



27bl 
137U 
lb33« 
1881* 
2074* 
3221* 
3S81* 
6589* 
4110 
2419 
50651 
2420 
51441 
2414 
295 
2415 
52331 
241b 
53121 
2581 
2481 
24/1 
2461 
2451 
2441 
2431 
2421 
2411 
2401 
2391 
257i 
2381 
2371 
2361 
2351 
2341 
2331 
2561 
2551 
2541 
2531 
2521 
2511 
2501 
2491 
24781 
24811 
263l 

2SI4 

4009 

2503* 

4122 

4374* 



1154* 

13%* 

1645J 

1917 

209«* 

32%* 

3704* 

41121 
49811 

50601 

24191 
8681 
51481 

52271 



258 
257 
256 
255 
254 
253 
252 
251 
250 
249 

4600 
4653 
2909 
4607 
4635 



1179* 

1432 

1660* 

1922* 

2121* 

3282* 

n729* 

4126 



9C7 



1201 

1437* 

1685* 

19X* 

2266* 

3307* 

3812* 



1216* 

1449* 

1721 

1951* 

2291* 

3373* 

3837* 



1224* 

1469* 

1726* 

1976* 

2330 

3398* 

3859* 



1249* 

1494* 

1738* 

1988 

2337* 

3421* 

3884* 



1259* 

iPiS. 

1998* 
2347* 
3446* 
3965* 



1272* 

2005* 
2439* 
3501* 
3991* 



1298* 

154'* 

1819 

2030* 

2464* 

3526* 

4028* 



1334 

in?* 

2051* 
2945* 
3548* 
4156* 



1339* 

ilM: 

2058 
3157* 
3573« 
4181« 



SEQ 0200 
13511 

iMI. 

2067t 
3182* 
3656* 
6588« 



2479 


2484 






2462 








1109 


11% 


1251 


1329 


2351 


2353 


2364 


2466 


4086 


4146 


4407 


66181 


2504* 


2505* 


2506 


2508 


41561 








4375* 


4376 


4427 


4498t 



1427 
2805 



1525 
3085 



1623 
3463 



1716 
3590 



1814 
3629 



1912 
3746 



1982 
3785 



2047 
3901 



2662* 2663* 2664 2666 29671 



nfllNOEC - 11 - DZCOe-B NftCYll 27(b5H) 
DZCOe.PU CROSS REFERENCE 1P0UE. 



l-JUL-77 0B:3S PflGE 12S 



Gib 



SEQ 0201 



CDA :-/.000005 



COBA 0012% 
CDC =X00000M 



CDCC 
COCNT 



001234 
01S332 



COOe 0012M0 

CDPKO 025740 
CDPKl 025741 
CDREM) 012700 
COS -/.000003 



COST 

CO 1000 

CKERR 

CKERRO 

CKERR 1 

CKERR2 

CKERR3 

CKFfilL 

CKLOOP 

CKLOPl 

CKL0P2 

CKL0P3 

CKLPl 

CKNOHD 

CKNOPK 

CKOFFL 

CKOVR 

CKOVRl 

CKREAO 



001232 
0012&& 
025454 
0256&6 
02547& 
025522 
0254&& 
025526 
025272 
0l5222 
025414 
325370 
025352 
0255b0 
025632 
025772 
025240 
025642 
025326 



2791 
1716« 
22H8# 
3S90« 

3951 

27Bt 
1715* 
21%« 
35B9* 

394 i 
24111 
2851* 

3%l 
4105 
4376* 
4379* 
2473 

2771 
1045 
1197» 
1350« 
1632« 
1913* 
2130 
2478 
2655 
2931 
3135 
3278 
3489 
3641 
3808 
4024 
4094 
4414 

391 1 

4101 
4415 
4452 
4435 
4442 
44371 
4419 
43991 
43861 
4417 
44181 
44121 
4454 
4464 

945 
4387 
4471 
4401 



955 
1814* 
2250* 
3629« 
6587 

951 

ni3» 

2198* 

3628* 

6566 

2543 

2852 

959 
4594 
4378* 
4381* 
2475 

947 
1073* 
1198 
1428* 
1641 
1914 
2134 
2481 
2692* 
2933 
3139 
3328 
3493 
3652 
3853* 
4032 
4098 
4434 
6585 
3020* 
44341 
44831 
44411 
4444 
4438 
4428 
4423 
4391 
44241 
4422 
4413 
44b7i 
44721 
1055 
43901 
4477i 
4403 



1031* 


1032 


1041 


1912* 


1962* 


2047* 


2252* 


2254 


2324* 


3746* 


3785* 


3901* 


1008* 


1009 


into 
lUlo 


1911* 


1981* 


20%* 


2200* 


2202 


2321* 


3745* 


3784* 


3900* 


2546* 


2586* 


2691 


29721 






%2 


970 


2512 


4380* 


4386* 


44991 


4382* 


4383* 


4384* 


24771 






985* 


986 


992* 


1074 


1078 


1088 


1205* 


1208 


1212 


1429 


1436* 


1445 


1644* 


1717* 


1718 


1921* 


1926 


1929* 


2138 


2142 


2326* 


2487 


2490 


2494 


2748 


2750 


2757 


2937 


2941 


2949 


314d 




dl^O* 


3332 


3336 


3340 


3497 


3542* 


3591* 


3697* 


3747* 


3751 


3902* 


3906 


3935 


4036 


4040 


4045 


4109 


4137 


4139 


4437 


4441 


4508 


3063* 


3918 





4447 « 

44501 

-»432 

4431 
4446 



4448 4490 

4492 
4493 



1057* 


1109* 


11%* 


1251* 


1329* 


1427* 


1525* 


1623* 


2116* 


clHfa 


ccld* 


eel 3* 


eel/* 


oo 1 a 

CCl*3 


CCdl* 


33^t 


2351 


2364* 


2470* 


2506 


2664 




3085* 


3463* 


4009* 


HUOD* 


LI 1 












1056* 


110B« 


1195* 


1250* 


1328* 


1426* 


1524* 


1622* 


2115* 


2151 


2161* 


2163* 


2165* 


2167 


2179* 


2184 


2363* 


2%9« 


2480 


2498 


2658 


2804* 


3084* 


346?* 


HUUb* 


•♦Uob* 






UCQC 








2696 


2699* 


2723* 


2815 


2827* 


2828 


2830* 


2841 


2547 


2561 


2590 


3645 


3648 


3801 


3804 


4102 


4389* 


4418 


45001 












993 


998* 


999 


1013 


1017* 


1022 


1036 


1040* 


1091 


1095 


1107* 


1110* 


1111 


1129 


1140 


1144 


1215* 


1252* 


1253 


1258* 


1330* 


1331 


1338* 


1347 


1448* 


1526* 


1527 


1534* 


154J 


1546* 


1624* 


1625 


1725* 


1734 


1737* 


1815* 


1816 


1823* 


1832 


1835* 


1983* 


1992* 


19%* 


2048* 


2065* 


2117^ 


2122 


2126 


2327 


2336* 


2343 


2346* 


2368* 


2369 


2471* 


2477* 


2618 


2620 


2631 


2635 


2639 


2643 


2647 


2650 


2759 


2770 


2774 


2778 


2782 


2785 


2807* 


2816* 


3087* 


3088 


3092 


3096 


3100 


3118 


3122 


3126 


3202 


3209 


3213 


3217 


3262* 


3266 


3270 


3?74 


3357 


3361 


3365 


3369 


3414* 


3464* 


3468 


3485 


3595 


36ie 


3622 


3624 


3630* 


3631 


3633 


3637 


3776 


3778 


3780 


3786* 


3787 


3789 


3793 


3797 


3944 


3949 


3954 


3958 


4007* 


4010* 


4016 


4020 


4055 


4059 


4077 


4079 


4081 


4087* 


4088 


4090 


4141 


4147* 


n49 


4151 


4197* 


4404* 


4410* 


4412 


4510* 


4511 


4518 


4593 


6585* 









1106 4507 
44061 



45181 4524 
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CKRF 
CKSWC 
CKSTRT 
CLCNT 

CONTC 

CONTD 

C0NT20 

C0NT2J 

C0NT7 

COUNT 

cOUhTG 

CRLF 



DfiTPCl 

D'^iST 

UCNTl 

DDISP : 

DECK 

OECKCK 

DERCNT 

OERFLG 

OHl 

gai 

0H4 



DH5 
0H6 
0H7 

DISPRT 

DISPLfl 

riSPRF 

OOMEb 

D5UR : 

DTI 

0T2 

DT3 

DT4 



DT5 
DTfa 

DUnflY : 
EflTVEC: 
Efll 

Enio 

EMU 

Erii2 
Erii3 

EM14 

En'5 



001262 
02%24 
0252S2 
0i5334 

OlSbSb 
01241b 
Ol04bO 
010770 
003760 
001250 
0012b4 
030553 



ul£30b 
012314 
0124b2 
177570 
014574 
0152b2 
015340 
025742 
044254 
044322 
044400 
044456 



044544 
044730 
045114 
027572 
001140 
000174 
003450 
177570 
04523b 
045252 
045270 
04530b 



045326 
045350 

m 

036272 
037124 
J37213 
037275 
037374 
037443 
037516 



4081 

322 
43951 

4429* 
3204 
2418 
1993 
2062 
1207 
4021 
4091 
ilH 
3616 
53171 
2653 
2382 
2429 
1801 
2417* 
2929 
2480* 
4377* 
432 
440 
448 
548 
687 
791 
630 
639 
671 
4957 
3571 
2911 
1141 
179i 
433 
441 
449 
549 
688 
792 
632 
673 
2751 
2681 
430 
485 
493 
501 
509 
516 
523 



4325f 

4439 

2527* 

4430 

32091 

24221 

19:J7f 

20651 

12161 

1072* 

918 
3700 

2768 

24081 

24361 

357 
2421* 
2932 
2483* 
4388* 

455 

463 

479 

555 

695 

798 
6501 M 
6522M 
6543M 
49641 

903* 

903 
1144« 

356 

456 

464 

480 

556 

696 

799 

641 
6576i 
2825 

876* 
58631 
59431 
59541 
5964« 
59771 
598S1 

621 
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4264 



Hib 



SEQ 0202 



2529 
4458* 


2b7b* 
4459 


2b78 
44b2* 


2332* 
448b* 


2833 
4488 


2835* 


2849* 


29731 


4406* 


4420* 


4421 


1082* 


1114* 


1131* 


1984* 


1985* 


2511* 


2525* 


2668* 


2674* 


2756* 




3017 
3775 


307b 
3855 


3083 
3932 


311b 
3939 


3132 
4052 


3201 
4076 


3324 
4120 


3355 
4132 


3417 
4135 


3483 
4200 


3544 
4457 


29621 
2960 


29b3 





















28251 
29561 
29751 
4399* 
495 
471 
487 
562 
703 
806 



3013* 
3013 



4% 
472 
488 
5b3 
704 
807 
65731 



4405* 


4416 


4443 


4445 


4463 


45011 




503 


510 


517 


525 


533 


541 


648 


64761 














64841 














569 


576 


583 


591 


599 


607 


bis 


711 


719 


727 


735 


743 


751 


759 


813 


821 


829 


837 


845 


861 


b492l 


3057* 


4250* 


4360* 


4599* 


4664* 






3057 


4250 


4360 











bSb 



b22 
7b7 



853 b4b9l 



bb3 
77b 



b79 
784 



504 
b564l 
b5b7l 

570 
712 
814 



511 



577 
720 
822 



518 



584 
728 
830 



526 



592 
736 
838 



534 



600 
744 
846 



542 



608 
752 
862 



649 



616 
760 
65701 



b57 



b23 
7b8 



854 b562l 



664 
777 



680 
785 



877* 2986* 2987* 3030* 3031* 4223* 4224* 4333* 4334* 



59941 
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lib 



SEA 0203 



EM20 
EM21 

EM23 

EM2H 

£1125 

Efl2& 

Ef127 

EM3 

|f130 

Efl3l 

Lfl32 

En33 

Ett3M 

EM35 

En3b 

En37 

EMM 

EMMO 

EM41 

EM42 

En43 

EM44 

EM45 

EI14b 

Eri47 

EMS 

EMSO 

EM51 

EI152 

EMS3 

£1154 

Enss 

EMSb 
Ef157 
EMb 

Enbo 

EHbl 

EHb2 

EI1b3 

EflbH 

£Mb5 

EMbb 

£Mb7 

£fl7 

ErCCK 

ERCOU 

ERCOIS 

ERFLG 

ERRV£C= 

ER12CD 



03b367 
04002b 
040054 

848281 
040232 
0403Pb 
0403b4 
0404b 1 
03b470 
04057b 
0'J0b70 
0407b2 
041044 
041 J27 
041247 
041353 
041432 
03b570 
041501 
0415b4 
041b4b 
041743 
042032 
042122 
042230 
042335 
03bb33 
042444 
042552 
042b57 
0427bb 
043115 
043204 
043250 
0433 \ 3 
03b734 
0M337b 
043452 
043533 
043f>27 
043b77 
044005 
04407b 
044175 
037024 
012£bb 
0lbb42 
Glbl4b 
0012b0 
000004 
0lbl34 



531 

539 

438 

547 

554 

5bl 

5b8 

575 

582 

589 

597 

44b 

bOS 

bl3 

b2e 

b37 

b4b 

b54 

bb9 

b78 

454 

b85 

b93 

701 

709 

717 

725 

733 

741 

4bl 

749 

757 

7b5 

773 

782 

790 

797 

804 

4b9 

812 

819 

827 

bb2 

835 

843 

851 

859 

477 

23801 
315 

30b4 
4071 
2bll 

3021 



bOObt 
b0l7l 
58751 
b033l 
b038t 
b0%l 
bOSSt 
bOblM 
b070M 
b079l 
b091t 
58881 
blObI 
bll7t 
bl28l 
bl38l 
bl49l 
blbSt 
bl78l 
bl87l 
59001 
bl95l 
b205l 
b215M 
b227l 
b238l 
b249l 
b2b2l 
b275l 
59071 
b289l 
b302l 
b31bl 
b329l 
b345M 
b35bM 
b3b3i 
b370l 
5920tt 
b380l 
b389i 
b399t 
b41lM 
b419l 
b433i 
b445tt 
b458l 
59311 

30221 

30b7l 

2412» 

4b40 

30b4i 



2820 

4b41« 

420b 



2622* 
4b43» 



4398* 
4b4b* 



4453 4455» 



Jib 



HfllNDEC - 11 - DZCDB-B fWCYU 27(b54) 
D2C0B.P11 CROSS REFERENCE TABLE 



ER1200 
GNS s 

HOOK I 
IHIT 



015342 
««««»« U 

002S22 



INTFLC 0012S2 



INTVC 

lOTVEC: 

ISR 

ISRBE 

ISROE 

ISR0E4 

ISROl 

ASR02 

isf|i 

ISI$2 

ISRC3 

ISRLP 

ISRNC 

iSRNX 

ifRNXl 

ISRRT 

ISRST 

LflSTCD 

LOOPS 

uOOPb 

LOOPbA 

LOOP&e 

LSTCDl 

flOftTft 

HLOGIC 

MLOOP 

flPfiTS 

MSCl 

nsGio 
nsGii 

HSG12 
nSG13 
MSG IS 
MSG15 
fISGlfa 
nSG17 
nSGlB 

fisGiq 

nSG2 

MSG20 

flSG2l 

nSG22 

nSG23 



001244 
00QQ20 
012750 
013150 
01317b 
013474 
013204 
013410 
C13510 
013Slb 
013554 
0135b4 
013042 
013034 
013154 
013172 
01307b 
013b34 
014b50 
QQ3220 
003442 
003412 
003430 
014bb4 
031305 
03125b 
031454 
031527 
031S7b 
032570 
032b34 
03270b 
033053 
033132 
033143 
033 1S4 
033175 
033410 
033442 
031b32 
03350b 
033552 
033b05 
034223 



32b 
290 
911 
291"3 
1153 
23b2 
45071 
4031 
1550 
182b 
4001 
2bbl 
2491 
252S 
2518 
2588 
25451 
2544 
2497 
2bl4 
2bl9 
2b23 
25121 
2507 
253bi 
2538 
2519 
2blb 
2b25 
1075 
11401 
11291 
1130 
28421 
2408 
919 
4301 
H367 
3130 
4125 
55231 
4073 
2823 
2421 

24 i; 

SSbOi 
4522 
4521 
445b 
91b 
3929 
3937 
3078 
4255 



297SI 
4917 
9191 
292bl 
1223 
243b 

1341 
I552« 
1828 
b588 

B7^« 

24941 

25351 

2521 

2b07i 

2582 

25871 

2bl4l 

2bl8i 

2b31l 

2b32 

2530 

25111 

25401 

25221 

2b2B 

27b4 

10781 

1132 
11351 
2844 
53851 
929 
54071 
541bl 
3323 
55171 

55301 
55481 
SSSbt 
55581 

55531 

E588I 

55931 

3115 

55991 

SbOSi 

SblOl 

5b59l 
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4918 4919 4920 4921 



SEQ 0204 



1272 
3075 

1343 
1559 
1839 
b5B9 
875» 



25431 



25351 

2533 

2b29 



2573 
2b51 
2802 
1083 



3131 



1370 
3112 

1354 

lb35 

1841« 

b590* 

2984« 



2575 

2b53l 

28401 



932 53801 

341b 3543 



3354 



14bB 
3i5b 

13Sbft 

lb37 

1848 



ISbb 


lb59 


1757 


1855 


1950 


2004 


2073 


22b5 


3351 


3M7B 


3b09 


3783 


3927 


39H0 


4071 


4395 


13b3 


1439 


1441 


1452 


1454* 


14bl 


1537 


1539 


lb4& 


IbSOft 


lb52 


1728 


1730 


1741 


1743« 


1750 


1933 


1935* 


1942 


b591« 










3028« 


3029« 


4221« 


4222« 


4331* 


4332* 







2bl0 



3bl5 3b99 3774 3854 3930 



4050 



4075 



4134 



54241 



3482 



3bl2 3931 



3938 



4051 54291 
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mmNs 

03S23& 





HSdMl 

nSGS 

nSG6 

ri$C7 

nSGe 

moooE 

f11200E 

NOHEPO 

rWTRP 

NOTRPl 

NXCRO 

OFFSET 

ONINT 

ONLINE 

PflKSET 

PC 



0354b3 
035645 
035fa75 

03&053 
Q3fel04 
Q3bl40 
031741 
03bl74 
03b22b 
031774 
032045 

032111 
032370 
0323b2 
031401 
Q31333 
014572 
002542 
012424 
014710 
01531b 
015250 
015204 
014522 
•/.000007 



PIRO = 
PI ROVE = 
POUMES 
PROC 

PRO = 

PRl = 

PR2 = 

PR3 = 

PR4 = 

PR5 = 

PRb =■ 

PR7 = 

PS = 
P5R 



177772 
000240 
031124 
00125b 
000000 
000040 
000100 
000140 
000200 
000240 
000300 
0003H0 
l/777b 
0i3b40 



¥ 1' 

172 51 



m 

4130 
4133 
4155 
41<W 
3114 
4112 
915 
3077 
3113 

3352 
3479 
3bl0 
37b4 
3928 
1357 
4072 
4129 
3353 
3415 
3480 
3bl3 
37bb 
30bl 
3016 
2821 

924i 
24241 
2531 
24b8« 
2945 
2927 
247b 

1921 

2b80i 
3075* 
4507* 
1781 
2721 
4955 
4051 
1951 
19bl 
1971 
1981 
1991 
2001 
2011 
2021 
1751 
2492 



4 

5703t 
5723t 
57381 
57581 
57bbl 
3200 
577bt 
57871 
58071 
58121 
581bl 
53221 
58271 
53321 
56371 
56421 
455 
6471 
5852M 
3bll 
3b98 
54blt 
5481 1 
54921 
53981 
53901 
26241 
935 
2431 
2535 
2794 
2949t 
29311 
2539 
909« 
950* 
b84« 
3112ft 
4514ft 



53b3i 

10b7» 
lObS 



925 
17b 
2b55i 



l-JUL-77 OB: 39 °9C£ 133 



58901 



Klb 



SEQ 0205 



37b5 54371 



1553 1744 1842 193b 54421 



54471 

4049 4198 



2b60 
2796* 



2b84ft 27i 



2612t 
945» 
04ft 
2bft 
315bft 
4520ft 



1084 
1125 



54541 



2b84 
2800ft 



1055ft 
2073ft 
27b4« 
3351ft 
45b5ft 



11 24ft 
1977 



28491 
29bbt 



llObft 
22b5ft 
2802ft 
3478* 
4b09ft 



lJ3b 
2052 



1153ft 1223ft 127£# 1370ft 14b8ft ISbbft lb59» 

23b2* 243bft 247b« 2531* 2535ft 2539ft 2589* 

2817ft 283?ft 284b> 2854ft 2874ft 2877ft 2d9b« 

3b09ft 37b3ft 3927ft 3940* 4071 ft 4254ft 43b9# 

4707ft 4714* 4721* 4735ft 4737ft 495b b597ft 



1757* 
2b25« 
30bbft 
4395* 



2425 b593 
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Lib 



SEO 02% 



PSRBE 
PSROE 
PSR0e3 
PSROl 

PSRE2 

PSRLP 

FSRNC 

PSRNX 

PSRNXl 

PSRRT 

PSRST 

PSW = 

PTOFF 

PURVEC= 



014000 
014052 
014244 
014060 

014322 
014362 
0143/2 
013722 
013714 
014004 
014046 
013726 
014432 
177776 
015336 
000024 



RESTRT 002534 
R£SVEC= 000010 
RETRNX 024622 
RETURN 027576 
RO =x.000000 



Rl 



R2 
R3 

R4 

R5 

R6 

R7 

SECN 

SETUP 

SETl 

SET2 

S£T3 

S£T4 

SETS 

SET6 

SE^7 



:X000001 



=X000002 
='/.000003 

='/.000004 

=>.000005 

=•'.000006 

=/.000007 
022672 
045366 

007564 
007106 
006430 
005766 

005310 
C04632 



2675 

2670 

2725 

26%t 

2697 

2657 

2744 

2749 

2758 

2762 

26691 

2665 

26851 

2687 

26711 

2746 

1761 
2974t 

2671 
4937» 

9221 

262i 
4259» 

907« 

1831 
2466* 
2669 
4418 
4550* 
4850 

1841 
2564 
2597 
2706 
2814« 

1851 

1861 
4862* 

1871 
4947* 

1881 
485 U 

1891 
4218 

1901 
3%6i 

909 
1934 
1840 
1743 
1649 
1551 
1453 
1355 



26841 
26%l 

27381 

2719 

27241 

27441 

27481 

27571 

27701 

2771 

2679 

26681 

2693t 

27in 
2786 



880« 
49524 
2385 

887» 
4260* 
3064* 
2164» 
2470 
2698 
4424 
4551 
4866 
2465* 
2569 
2606 
2708« 
2815« 
4838 
4777 
4865* 
2182* 

2234* 
4855* 

191 
4326* 

192 
4029 
3066 
19421 
18481 
17SGI 
1652M 
15591 
14611 
I363I 



27741 

2682 

2766 



2712 
27880 



2788 



2741 



881* 


2990* 


2991* 


3034* 


3035* 


4953* 










2959 
894* 


2366* 


2367* 


2997* 


3004* 


4303 


4305 


4306 1 


4%7l 




4298* 


4364* 


4964 




2165 


2167 


2170 


2181* 


2182 


2503 


2517 


2520 


2545 


2552 


2700 


2706 


2733 


2737 


2805* 


4466 


4470 


4472 


4476 


4537 


4556 


4561* 


4563* 


456' 


4569 


4867 


4880* 


4900 


4901* 


4902 


2515 


2520 


2522 


2524* 


2532 


2571* 


2572 


2574* 


2577* 


2578 


2669 


2671 


2673* 


2681 


2685 


2709 


2711* 


2714* 


2715 


2717* 


4385* 


4389 


4390* 


4837 


4850* 


4849* 


4853* 


4856 


4863* 


4864* 


4786* 


4792* 


4793* 


47%» 


4801* 


4874* 


4875* 


4877* 


4933 


4948* 


4778 


4780* 


4781* 


4782* 


4783 


4779 


4785* 


4787* 


4789* 


4790* 


4870 


4876* 


4935 


4946* 


2980* 


869* 


870* 


871 


2979* 


4327* 


4328 








4254 


4369 


a585l 







4227* 

3041* 

2216* 

2555 

2806 

4538* 

4691 

4903* 

2536 

2580* 

2690* 

2718 

4851 

4865 

4802* 

4784* 

4791* 

2981 



4228* 


4337* 


4338* 


4928* 


4929* 


3048* 


4234* 


4241* 


4344* 


4351* 


2217 


2219 


2222 


2233* 


2234 


2566 


2569 


2602 


2606 


2662 


2885* 


2893* 


2896 


4407* 


4409 


4539* 


4546* 


4547* 


4548* 


4b49* 


4692* 


4693 


46%* 


4636 


4846* 


4904* 


4905* 


4906* 


4930 


4951* 


2550 


2555 


2557* 


2558 


2560* 


2581 


2583* 


2584* 


2585* 


2593 


2691* 


2700 


2702* 


2703 


2705* 


2720* 


2721* 


2722* 


2728 


2737 


4855 


4879* 


4931 


4950* 




4870* 


4878* 


4932 


4949* 




4803 


4812* 


4839 


4847* 


4848* 


4798 


4800* 


4808* 


4811* 


4934 


4792 


4810* 


4840 


4842* 


4844* 


3023* 


3024* 


3025 


4216* 


4217# 
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Mlfe 



SIZE 01S314 
SP s'/COOOOOb 



2%7« 



2S0H 2505 



2511 



2U»3 2b68 279H« 2798 2804 2BH0 



i« 

282 

Hii* 

472# 
4%« 

Si8 
579» 
&02 
bH7 

»!. 

767 

790* 

819« 

87H» 

897t 

954i 
977# 
f 
« 

208b« 

2109 

228H» 

2307* 

242b» 

24b0« 

2631 « 

2983* 

3051* 

3174f 

3195* 

3245 

3288* 

3310* 

3363 

3407 

3438K 

3459* 

3523* 

355 1« 

3575* 

3bb5 

3b88» 

3717» 

3741* 



189 

237* 

283 



if 
392* 

497* 

b04« 
bb2« 

7b8 
792 

egQ« 

877* 
898* 

^57* 

9:'8* 

^3* 



2087* 

2111* 

2267* 

2308* 

2432* 

24bl* 

2888* 

2998* 

3052* 

3175* 

3223* 

324b 

3289* 

3313* 

3385* 

3408 

3439* 

34b7 

3525 

3554* 

357b* 

3bbb 

3b90 

3721* 

3742* 



1191* 
1241* 
1285* 

1393* 

141b* 

147b* 

1500* 

1521* 

1584* 

IbOS* 

lbb3* 

lb87« 

1709 

1770* 

1793 

1838 

1678* 

1901* 

ili: 

3* 

2091* 

2112* 

2288* 

2311* 

2433* 

24b3 

2889* 

2999* 

3058 

3178* 

3224* 

3248* 

3291 

3314* 

338b* 

3410* 

3442* 

3503* 

352b 

3555* 

3579* 

3bb8* 

3b91 

3722* 

3750 



IC 

{® 

£01* 
245* 
290* 
311* 
373* 
3% 
419 
479 
503 
531* 
588* 
b09* 
bb7* 
b91* 
712* 
775* 
796* 
858* 
881 
904 
%1 
995 
2029 
2058* 
2095* 
22b8* 
2291 
2314 
2442* 
2595* 
2902* 
3007* 
30b0 
3181 
3226* 
3252* 
3294* 
3317 
3391* 
3420 
3445 
3507* 
3529* 
3558 
3582 
3b73* 
3b94» 
372b« 
3813* 



1 

202 
2% 
291 

^ 

398 

420 
481 
504 
549 
589 
bl2 
bb9 
b92 
721 
77b 
1799 
1859 
1883 
1905 
19b3 
2007 
2030 
2059 
20% 
22b9* 
2293 
2315 
2445 
2597 
2905 
3008 
3159 
3182 
3230 
3253 
3295 
3319 
3394 
3423 
34% 
3508 
3532 
35b0 
3583 
3b74 
3703 
3728 
3816 



211 
248 
294* 

i3iS» 
377* 

399* 
422* 
482* 
50b* 
554* 
591 
bl3* 
b70 
b94 
722* 
779* 
800* 
6b2* 
884* 
907* 
9b4* 
2008* 
2032* 
20b3 
2096 
2272* 
2294* 
2317* 
244b» 
2b02« 
290b* 
3014 
31b0* 
3184* 
3231 
3255 
3299* 
3320* 
3395* 
3424* 
3448* 
3510 
3533* 
35bl* 
3585* 
3b77* 
370b« 
3729 
3819* 



1%' 

22b* 
249 
295* 
316* 
378* 
402* 
423* 
48b* 
507* 
5b9* 
592 
bl5 
b72* 
b95 
740 
780* 
803* 
.8b3* 
,687* 
908* 
.9b8* 
2011* 
2033* 
207b* 
2099 
2273* 
2297* 
2318* 
2448 
2728* 
2907 
3015 
3 f3* 
3 as* 
\-33* 
3dSb 
3300* 
3327 
3397 
3427* 
3449* 
3511 
3535 
35b5* 
358S* 
3b78* 
3707* 
3731* 
3821 



i^' iiii: iiir. m 



297 
319* 
380 
403* 
432* 
487* 
510* 
570* 
594* 
bib 
b73* 
b97* 
1745* 
1782 
1804* 
18b5 
1888* 
1917* 
1%9* 
2012* 
203b* 
2077* 
2101* 
2275 
2298* 
2330* 
2449 
2733* 
2908* 
301b 
31b4* 
3188* 
3234* 
3256* 
3303* 
3375* 
3398 
3428* 
3452* 
3513* 
353b 
35bb* 
3594 
3b80 
3710* 
3732* 
3822 



1084* 
57* 
I* 

m 

1298 

1321 

1381 

1405 

1433* 

1H90* 

1511* 

1573* 

1595* 

1818* 

lb77* 

lb98* 

17b0* 

1783 

180b 

18bb 

1890 

1918* 

1972* 

2014 

2037* 

2080* 

2102* 

227b 

2300 

2331* 

2451* 

2828* 

2913* 

302?* 

31bb 

3189* 

3238* 

3259* 

3304* 

337b* 

3400* 

3430 

3453* 

3514* 

3538* 

35b9* 

3b56* 

3b81 

3711* 

3735* 

3824* 



1 



lib. 

m 

1300* 

1322 

1383* 

140b 

1451 

1491* 

1514* 

15744 

i598« 

lbl9* 

lb78* 

1701* 

i7bl* 

1785* 

1807 

18b8* 

1891 

1932 

1973* 

2015 

2039 

2081* 

2105* 

2278* 

2301 

2350 

2452* 

2833* 

2914* 

3042* 

31b7 

3191 

3239* 

32b5 

330b 

3379* 

3401* 

3431 

3455 

3518* 

3539* 

3570* 

3b59* 

3b83* 

3713 

373b* 

3825* 



2%5i 

1301* 
1324* 

1408* 

145b» 

1493 

1515* 

157b 

1599* 

lb28* 

IbSl* 

1702* 

17b4* 

I78b» 

1809* 

18b9* 

1893* 

1937* 

1975 

2017* 

2040 

2083 

210b* 

2279* 

2303* 

2374 

245b* 

28b8 

2953 

3043* 

31b9* 

3192 

3242* 

3284* 

3307 

3380* 

3404* 

3433* 

345b 

3519* 

3547 

3572 

3bb2* 

3b84* 

3714 

3738 

3829* 



5E0 0207 

IIS. 

1304* 

1409* 

14711 

1494 

1517 

1577 

IbOl 

lb29* 

lb82« 

1705» 

17b^» 

1789* 

IBIO* 

18/3* 

1894* 

1953* 

197b 

2018* 

2042* 

2084 

2108 

2283 » 

2304* 

2425* 

2457* 

:3b9 

29b2 

3047* 

3170* 

3194* 

3243* 

3265* 

3309* 

34§i* 

36b3* 

3b87# 

371b* 

3739 

3830* 
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BOl 



SEQ 0208 



SPftCE 

SRETRM 

SRETRl 

SRETR3 

SRETRM 

SRVC 

STACK = 

STAOOR 

STKLnT= 

Sites 

SUR 



SUREG 

SUO 

SUOO 

SUOl 

SU02 

SU03 

SHOM 

SW05 

SWOb 

5U07 

5U08 

SWOS 

SUl 

SUlO 

SUli 

S«i2 

SU13 

sum 
suis 

SU2 
SU3 
SHM 
SU5 

sub 



0305S5 
0iM43b 
OlMMSb 
0144bb 
01MM7b 
012730 
001100 
030blb 
17777M 
03055b 
00113b 



G0017E> 
OOCOOl 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
002000 
004000 
010000 
020000 
040000 
100000 
000004 
000010 
000020 
000040 
000100 



3833« 
39bl« 
3884 
3S73* 
3997* 
41bb 
4190 
4253 
4291 
4459* 
4543 
4703 
4777* 
4840* 
4880 
^■«9Hb 
2b01 
2540 
2795 
28001 
2799 
2439 
1721 
913 
1771 
912 
35bi 
2724 
42b4 
4b53 
2921 
2301 
220t 
2191 
2181 
2171 
21bl 
2151 
2141 
2131 
212i 
2111 
2291 
2101 
2091 
208t 
207f 
20bl 
2051 
2281 
2271 
22bt 
2251 
2241 



3834# 
38b2« 
388b« 
3975 
3998« 
41b8« 
4191 
42b7» 
4292 
44bb« 
4b45 
4708 
4778* 
4841* 
4882* 
4947 
2727 
2b93 
27981 
2803 
28021 
24871 
873 
532bl 



230 
229 
228 
227 
22b 
225 
224 
223 



221 



383b 

38b5ft 

3887* 

397b 

4000 

41b9« 

4193* 

42b8« 

4294* 

4472* 

%4b 

4710* 

4779* 

4842 

4883* 

4948 

2732 

27941 



3837 

38bb* 

3890* 

3978* 

4001 

4173* 

4194* 

4271« 

4295* 

4478* 

%b3 

4712* 

4785 

4845* 

4900* 

4949 

282b 

2797 



3839* 

38be 

3891* 

3979* 

4003* 

SITM* 

4203 

4272* 

4330* 

4481* 

4bb5* 

4720* 

4810 

4858 

4901 

4950 

2831 

2801 



3840* 


38M3* 


3844* 


384b 


38 r 


3849* 


3850* 


3856 


38b9 


3871* 


3872* 


387b't 


387;* 


3880* 


3881* 


3883 


3893 


3894 


389b* 


3897* 


3905 


39b8* 


3%9* 


3972* 


3983* 


3984* 


3987* 


3988* 


3990 


3991 


3993* 


399H* 


4004* 


4014 


4030 


4158* 


4159* 


4ib2» 


4153* 


•41b5 


4177* 


4178* 


4180 


4181 


4183* 


4184* 


4187* 


4188* 


4220* 


4235* 


423b* 


4240* 


4244* 


4245* 


4251 


4252 


4274 


4275 


4277* 


4278* 


4284* 


4285* 


428b > 


4289* 


4345* 


434b* 


4350* 


435*** 


4355* 

UCQI 


43b 1 


43b2 


43b3 


4537* 


454c« 


Msbd 




UCQ3 






4b91* 


4b92 


4b93« 


4595 


%% 


%97* 


4b99 


4701 


4724 


4728 


4729 


4733 


47b9» 


4770 


4771 


4772* 


4811 


4812 


4813* 


4814* 


483b* 


4B37* 


4838* 


4839* 


48b0* 


4882 


4872 


4874 


487b 


4877 


4878 


4879 


4930* 


4931* 


4932* 


4933* 


4934* 


4935* 


493b 


4942* 


4951 


495b* 


4958* 


b593* 


b594* 








283b 


44bl 


44b5 


4477 


4480 


5315t 







2983 3027 4220 4330 



3057 
900 
2738 
4357 


4300 
902* 
2753 
4359* 


43bb 
934 
2909 
4374 


53191 

2381 
292b 
4400 


2413 
2957 
4402 


2430 
3010 
4451 


2472 

3012* 

4483 


2474 
3054 
4491 


2537 

305b* 

4b00 


2587 
4247 
4b07 


2b07 

4249* 

%12 


2b8b 
4259 
4535 


902 


3012 


305b 


4249 


4359 

















COl 



fwifcec - u 
ozcoe.Pii 
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SU7 = 


000200 


2231 






SU8 = 


000400 


2221 






SU<3 = 
TBITVEs 


QOIOOQ 
000014 


221t 
2631 


884« 


885« 


TCRLF = 


0GQ200 


4701 


47401 


2968 1 


TEftPl 


015322 


2840« 


2843» 


TEffa 


015324 


2841« 


2842« 


2845 


TErc 


015330 


241b» 


2420* 


2522 


TESTX 


024100 


318 


42151 




THT = 


000011 


46Sq 


47391 




TIMrtSl 


0107&4 


2051 


20631 




TINTC 


016&52 


3157 


320&t 




TIMTCA 


017120 


3221 


32651 




TINTCB 


017402 


3282 


33271 




TINTD 


017764 


3373 


34201 




TIMTOfl 


020214 


3421 


3467i 




TINTE 


020544 


3501 


35471 




TINTEfl 


020774 


3548 


35941 




TINTF 


021424 


3656 


37031 




TINTFfi 


021654 


3704 


37501 




TINTG 


022270 


3812 


38581 




TINTGfl 


Q2252G 


385S 


39051 




TINTH 


024064 


4156 


42031 




TINTI 


023120 


3S65 


40141 




TINTIfl 


023156 


4028 


40301 




TlffTlO 


004150 


1224 


12561 




TINTll 


004556 


1273 


13471 




TINT12 


005234 


1371 


14451 




TINT13 


005712 


1469 


15431 




TINT14 


006370 


1567 


16411 




TINTIS 


007032 


1660 


17341 




TINTlb 


0D7510 


1758 


18321 




TINT17 


010150 


1856 


19261 




TINT20 


010452 


1951 


19941 




TIffr21 


010726 


2005 


20501 




TINT22 


0112H0 


2074 


21191 




TINT31 


0121% 


2266 


23431 




TINT? 


0037MO 


1154 


12081 




TKVEC = 


000060 


2701 






TLOPC 


016642 


32021 


3203 




TLOPG 


021720 


3776i 


2777 




TLOPGA 


021726 


37781 


3779 




TLOPGB 


021756 


37871 


3768 




TLOPH 


023304 


40771 


4078 




TLOPHA 


023312 


40791 


4080 




TLOPHB 


023342 


40881 


4089 




TLOPHC 


023550 


41371 


4138 




TLOPHD 


023556 


41391 


4140 




TLOPHE 


023606 


41491 


4150 




TOTCRO 


025734 


4396» 


4411* 


4478 


TOTERR 


025732 


4397» 


4450» 


4481 


TPVEC = 


000064 


2711 






TRACE s 


000360 


281 • 


936 


2432 


TRAPVEs 


000034 


2691 


878» 


879» 



2994» 2995* 3038* 3039* 4231* 4232* 43HU 4342* 



29691 
2558 



2581 2671 2689» 2703 2718 2813* 29711 



4497 « 
4496 « 

2988* 2989* 3032# 3033* 4225* 4226* M335» H336» 



DOl 
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TRftPX 

TRFLG 

TRPl 

TRTRflP 

TRTVECs 

TSTRRT 



002S&E> 
001254 
012440 
001242 
000014 
015326 



TSTfllO 

TSTf112 

TSTl 

TSTIO 

TSTll 

TST12 

TST13 

TST14 

TST15 

TSTlb 

TST17 

TST2 

TST20 

TST21 

TST22 

TST23 

TST24 

TST25 

TST2b 

TST27 

TST3 

TST30 

TST31 

TST32 

TST33 

TST34 

TST35 

TSTSb 

TST37 

TST4 

TST40 

TST41 

TST42 

TST43 

TST5 

TSTb 

TST7 

TTY = 

TYHEflO 

TYPOS : 

TYPE : 



02325b 
022544 
002b20 
003770 
0041bb 
004b44 
005322 
OObOOO 
00b442 
007120 
007573 
002724 
Q1023b 
010470 
011002 
011382 
011410 
01143b 
0114bb 
011514 
002772 
011542 
011572 
01220b 
01bl52 
018250 
018402 
017442 
020228 
003042 
02100b 
021bbb 
022544 
023258 
003112 
003300 
003H5b 

-4)00005 
014554 
104404 

: 104400 



S23 

4041 
2423 

30S 

2b4t 
2415* 
29701 
3920 
3919 

921 
12221 
12711 
1342 
1440 
1538 
lb38 
1729 
1827 

98?l 
1925 
20031 
20721 
21801 
21781 
21951 
22121 
22301 

989 
22471 
22841 
23811 
30721 
31081 
31531 
3348t 
34781 
10301 
38031 
37591 
39281 
40871 
10531 
1081 
1134 

2801 
2589 
2829 

912 
1455 
2831 
3114 
3354 
3812 
3855 



9321 
922 
24301 
3991 



10071 



1094 
11521 

2728 
2834 
913 
1553 
2838 
3115 
3355 
3bl3 
3928 
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2384i 2422 2958* b592ft 



SEQ 0210 



2419* 


24b5 


c5c4 


cbrc 


3C7Q 

car □ 


4080 


40831 








39221 










931 


9441 








1344 


1348 


1382 


1384 


13891 


1442 


1444 


1480 


1482 


14b7l 


1540 


1542 


1558 


1580 


15b5l 


lb38 


1840 


1851 


1853 


lb58l 


1731 


1733 


1749 


1751 


175bl 


1829 


1831 


1847 


1849 


18541 


1941 


1943 


19491 







11031 



28201 
2882 
914 
1744 
2880 
3118 
3415 
3bl5 
3929 



2873 2888* 2709 2715 2720 2812* 



44b0 


4479 


4482 


49211 


920 


915 


918 


918 


919 


1842 


1938 


2383 


2408 


2801 


2883 


3017 


3018 


3081 


3087 


3130 


3131 


3132 


3199 


3200 


3418 


3417 


3479 


3480 


3482 


3818 


3898 


3899 


3700 


37b4 


3930 


3931 


3332 


3937 


3938 



929 
2727 
307b 
3201 
3483 
37b5 
3939 



930 
2732 
3077 
3323 
3543 
37bb 
4049 



932 
2823 
3078 
3324 
3544 
3774 
4050 



933 
2824 
3083 
3352 
3810 
3775 
4051 



1357 
2826 
3113 
3353 
3811 
3854 
4052 
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EDI 



SEQ 021 







Mn7P 


Mn7^ 


4075 

lUf 9 


■Ur w 


4112 


4120 


4125 


4129 


4130 


4132 






MM^ 


MIQQ 

44ig 


4199 

MMs7 


MPnn 

~CUU 

44b 1 

I IWl 


446d 


4255 

4477 


42(il 
4q80 


4300 

4521 


4301 

4522 


4366 

I 








MCCU 


MC71 
Tor 1 


MM1P 

~DUC 




M7n4 

~r U I 






49171 


4954 


ITKUC - 


1 ruiun 1 


ucuu 




MQ 1 flu 
















TvDmy — 
lYrUn s 


iO*TMUJ 


uopnii 










1^38 


2598 

LW JO 


2603 


2729 


2734 


TVDAC - 




1 "KQ 


1 MC7 




1 r 


10 I » 


1 ILHiU 




1 PCC 

less 


1 PCQ« 


















TSIEND 


012206 




POCP 
CJ3C 


CJ3DV 
















HNi IH 


no ^11 on 


u 1 1 0il 
Mil Jl 


U 1 1 u 


















HHl ID 


noiuuu 


U 1 1 CM 


Ml 1 7 
Til/ 




















UC^MJU 


MPQO 


Minni 




















nn 1 1 33 
UUl ice 


JdUI 










M3?8 












UU. CD 


VPH 


071 
Of 1 
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4182 










1818 


191b 


1987 


2057 


2329 








1152 


1222 


1271 


13b9 


14b7 


15b5 


1658 


1756 


2212 


2230 


2247 


22b4 


23bl 


2380 


3072 


3108 


4204 
1166 


1191 


1201 


123b 


1285 


1310 


1324 


1334 


1530 


1579 


lb04 


lbl8 


lb28 


lb72 


1697 


1711 


1907 


1917 


19b3 


1977 


1988 


2017 


2042 


2052 


2424 


2432 


2451 


31b9 


3194 


3233 


3258 


3294 


3560 


3585 


3bb8 


3b93 


371b 


3741 


3824 


3849 


4294 


6593 
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SKIP 
SLASH 
SPACE 
STARS 



SURSU 

TRMTRP 

TYPBIN 

TYPDEC 

TYPNUn 

TYPOCS 

TYPOCT 

TYPTXT 

SSCHRE 

MCMTH 

SSESCA 

SStCUT 



SSSET 

SSSETU 

SSSKIP 

.EQUAT 

.HEADE 

-SETUP 

.lACTl 

.SCATC 

. SCriTA 

.SEOP 

.SERRO 

.SERRT 

.SPOUE 

. SSCOP 

. STRAP 

.STYPC 

.STYPE 

.STYPO 



2731 
2731 
2731 
4t 
1050 
1564 
2175 
306<3 
4064 
6612 
8971 
49081 
2731 
273i 
2731 
2731 
2731 
2731 
3301 
3301 
273S 
2731 
1851 
3345 
4<308t 
884t 
2731 
51 
41 
5t 
61 
4t 
41 
6t 
41 
41 
51 
61 
51 
61 
51 
5» 



139 


157 


2731 


297 


1052 


1100 


1102 


1149 


1655 


1657 


1753 


1755 


2177 


2192 


2194 


2209 


3071 


3105 


3107 


3152 


4066 


4527 


4576 


4621 


6614 


6616 




43541 


30071 


30511 


42441 



168 
10 
328 
297 
283 
330 
2857 
4576 
4527 
4923 
4621 
4891 
4822 
4669 
4743 
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330 
1151 
1851 
2211 
3345 
4669 



SEQ 0215 



389 
1219 


Q41 
1221 




,111 


im. 


m 


m 


m 


m 


1853 


1946 


1948 


2000 


2002 


2069 


2071 


2157 


2159 


2227 
3347 


2229 


2244 


2246 


2261 


2263 


2358 


2360 


2857 


3473 


3475 


3600 


3602 


3756 


3758 


3923 


3925 


4743 


4822 


4891 


4923 


6581 


6583 


6599 


6601 


6803 



2881 



4542 4566 



368 


369 


370 


371 


372 


373 


374 


375 


376 


377 


378 


379 


380 


381 


382 


383 


941 


979 


1004 


1027 


1050 


1100 


1149 


1219 


1946 


2000 


2069 


2157 


2175 


2192 


2209 


2227 


3473 


3600 


3756 


3923 


4064 








4918 


4919 


4920 


4921 










29941 


30381 


42311 


43411 











1268 
2244 



1366 
2261 



1464 
2358 



1582 
3089 



1655 
3105 



1753 
3152 
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onn 


O^J 


csco 


P557 

CSS' 


2574 




COlC 


cOi J 


Pfll u 
CDi~ 


2843 




UCU7 






4904 


QCI R 


UQCn 
~ODU 


















RPQ 


QMR 






964 




1 nuc 




1 096 


1112 




CCU«3 


CCCl 


PP3R 


2255 




CDJD 


CD~U 


P6M4 


2648 








993? 

C^wC 


2942 








3596 


3623 






3QP^ 


4017 


4021 




<CD3 




4435 

1 1*33 


4438 




CDCD 


COS J 


M659 


4734 


SC 
ou 






P710 
C ' 1 u 


2716 




1 IQQ 




'309 

« WW? 


1407 






P594 


269? 

CD JC 


2873 






Mnn? 


4t 19 


4192 




QRQ 


int7 

lUl f 


1 040 


1165 






lOUO 


tR67 


1906 








3559 

«333^ 


3667 






45 3Q 






RTT 




1 n7P 

iUr □ 


1095 


1111 




PMQD 
C 1 jU 




P537 


2587 




?7MB 


P75D 


P753 

Cr S«3 


2757 








P957 


3096 




333P 


3340 

WW iU 


3357 


3365 




3778 


37B9 

W ■ W J 


3797 

W» J» 


3804 






4077 


4079 


4090 




1 1 I A 


4451 

1 IW* 


4491 

■ 1 3X 


4518 


BITS 


4722 








SLE 




P7D4 






BLT 


2765 


4713 

If X W 


4B07 


4852 


BUI 


10S9 


X xwu 


1 141 

X X ■ X 


1209 




164<§ 


1731 

1 r wl 


1 r WW 


1742 




2549 


CwwW 


Cw^C 


2614 






3337 

www r 


wwOC 


3490 


BNE 


S72 


911 

^X X 


V3 

^ww 


935 




251B 


2521 

&WC X 


?53Q 

CwWU 


2538 




26S7 


&w?r 


br WX 


2707 




29S2 


3Q26 


3QB9 

WWW J 


3093 




3642 


3649 


3790 


3798 




44D3 

1 1 WW 


4419 

1 iX J 


44?2 

iiCC 


4428 




4654 

■ WW 1 


4694 

• W J • 


470? 

1 1 W& 


4709 






1075 

X Ur W 


1092 


1145 




1719 


1751 


1817 


1849 




4025 


4089 


4103 


4114 


BR 


4795 


4843 


4873 




B92 


901 


921 


^31 




1542 


1558 


1640 


1651 




2418 


2429 


2484 


2496 




2741 


2746 


2762 


2797 




3418 


3465 


3545 


3592 




4349 


435B 


4423 


4432 
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2580 


2584 


2585 


2677 


If n 4 

2691 


3003 


3047 


4240 


4260 


ii^m 

4350 


973 


987 


S94 


1000 


1010 


1342 


1440 


153B 


1636 


1729 


2352 


2382 


2414 


2473 


2479 


2656 


2659 


2665 


2675 


2749 


2958 


3101 


3127 


3140 


3148 


3625 


3653 


3752 


3777 


3779 


4056 


4060 


4078 


4080 


4082 


4442 


4512 


4552 


4557 


457D 


2803 


2876 


4446 


4806 


4Bo9 


1505 


1603 


1696 


1794 


1892 


2908 


3193 


3257 


3318 


3409 


4276 


4375 


4425 


4796 


iintf* ft 

4%8 


1235 


1284 


1323 


1382 


1 Ll^ 1 

1421 


1962 


2016 


2085 


2277 


2316 


3715 


3823 


3870 


3977 


4167 


2130 


2134 


2138 


2142 


c381 


261B 


2620 


2631 


2635 


fie -"lo 

2639 


2759 


2770 


2774 


2778 


2782 


3100 


311B 


31cb 


3135 


313*3 


3369 


3485 


3493 


3497 


3618 


3808 


3935 


3944 


3949 




4098 


4105 


4109 


4137 


11 1 m 

4139 


4600 


Lit rt^ 

4607 


Lie 






4868 










1344 


1348 


1355 


1 111 n 

1442 


144b 


1829 


1833 


1840 


1927 


1934 


2672 


2744 


2795 


2844 


cSlc 


3638 


3794 


4046 


4095 


LlLl f C 


1063 


1132 


1986 


O 4 O 4 

2131 


2135 


2544 


2553 


2556 


2567 


c57U 


2719 


2725 


2751 


2754 


27b □ 


3097 


3119 


3136 


3c/'l 


33c'3 


3805 


4033 


4037 


4041 


4091 


4431 


4452 


4454 


4489 


4492 


4723 


4730 




HBb7 


4*345 


1199 


1213 


1254 


1332 


f ^cu 
1364 


1915 


1943 


c3co 


2370 


cbOo 


4117 


4150 


LIU f ^ 

4413 


1111 1 ^ 

4417 


ilUilil 

4444 


QCQ 


QQQ 


1 nQ 1 
iudi 




t 1 3M 


1733 


1749 


1831 


1847 


1925 


2519 


2533 


2554 


2568 


2575 


2801 


2890 


2929 


2947 


3002 


3701 


3748 


3856 


3903 


4011 


4439 


4448 


4471 


4524 


4545 













5EG 


2702 


2711 


2717 


2721 


2722 


2794 


4550 


4697 


4772 


4782 


4855 


1014 


1019 


1023 


1033 


1037 


1042 


1827 


2143 


2147 


2152 


2169 


2186 


2491 


2499 


2507 


2526 


2619 


2632 


2758 


2771 


2775 


2779 


2783 


com 


3203 


3218 


3279 


3333 


3341 


3370 


3781 


3809 


3907 


3919 


3936 


3945 


4110 


4122 


4124 


4138 


4140 


4142 


4598 


4601 


4650 


4656 


4700 


4799 


2041 


2110 


2302 


2450 


2516 


2551 


3457 


3537 


3584 


3692 


3740 


3848 


1480 


1S19 


15^8 


1617 


1671 


1710 


2816 


2913 


3168 


3232 


3293 


3384 


4293 


4404 


4801 


4W)2 


4863 


4864 


2413 


2430 


2472 


2474 


2478 


2481 


2643 


2647 


2650 


2655 


2686 


2724 


2785 


2798 


2909 


2926 


2931 


2937 


3147 


3202 


3217 


3270 


3278 


3328 


3622 


3633 


3641 


3648 


3652 


3776 


4016 


4020 


4032 


4036 


4040 


4055 


4151 


4264 


4400 


4402 


4434 


4437 


1453 


1540 


1544 


1551 


1638 


1642 


2123 


2127 


2344 


2488 


2514 


2523 


2934 


3123 


3144 


AA 4 n 

3210 


3214 


3267 


4859 












2139 


2423 


2431 


2475 


2482 


2495 


2582 


2588 


2621 


2651 


2670 


2679 


2786 


2799 


2821 


2910 


*Vt*\A 

2938 


2950 


3358 


3366 


3486 


3494 


3619 


3634 


4099 


4106 


4152 


4219 


4329 


4391 


4519 


4540 


iifT ^ 

4562 


iir AA 

4608 


Lit f t 

4616 


4bJo 


1430 


1462 


1528 


1560 


lEi26 


1 td 
1653 


2739 


3632 


•^v 1 ir 

jb46 


3788 


3802 


3959 


4464 


4484 


11 

4509 


1 If 4 

%13 


iir AA 

4688 


4727 


1207 


1255 


1346 


1362 


1444 


1460 


1941 


1993 


2049 


2062 


2118 


2371 


2596 


2616 


2623 


2628 


2682 


2712 


3011 


3046 


3055 


3204 


3263 


3325 


M029 


4126 


4201 


4239 


4248 


4281 


4572 


4638 


4644 


4647 


4690 


4706 
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KOI 



SEQ 0217 





471b 


4725 


4732 


4773 


CLR 


870 


883 


ODD 


895 




122b 


1241 


1258 


1260 




1412 


143b 


1438 


144B 




1594 


1&08 


lb32 


1634 




1775 


1785 


1799 


1823 




19b8 


1984 


1992 




21bl 


2179 


2187 


21% 




2348 


2377 


2409 


2410 




2870 


2871 


2888 


2901 




3184 


3223 


3238 


3248 




3528 


3550 


35b5 


3575 




388b 


3%8 


3983 


3993 




4345 


4352 


4377 


43% 




b592 








CLRB 


4399 


4b51 


4731 


4875 


CflP 


871 


904 


947 


%2 




1257 


1343 


1353 


1363 




1750 


1828 


1838 


1848 




2?54 


2350 


2351 


2374 




2578 


2581 


2606 


2664 




2981 


3014 


3025 


3056 




3751 


3780 


3858 


3905 




4427 


4430 


4488 


4511 


cnPB 


2bb9 


2700 


2706 


2737 


con 


21b3 


2215 


2384 


2911 


cone 


4405 








DEC 


1131 


2830 


2835 


2874 


DECS 


4712 


4715 


4794 


4805 


EflT 


173 








HOLT 


290 


917 


2609 


2740 




4258 


42b3 


4373 


4394 


INC 


1073 


1082 


1110 


1985 




2832 


2842 


2851 


2872 




4388 


4410 


4411 


4420 


INCB 


4597 


4bb2 


4735 




lOT 


174 








JMP 


295 


315 


318 


322 




27bb 


2768 


2788 


2919 


JSR 


909 


945 


1055 


1106 




2073 


22b5 


2362 


2436 




28% 


30bb 


3075 


3112 




4507 


4b09 


4707 


4714 


NOV 


8b9 


873 


874 


875 




889 


891 


894 


8% 




937 


%5 


974 


998 




10b9 


1084 


1085 


1108 




1154 


1157 


1158 


1160 




1182 


1183 


1185 


1186 




1227 


1228 


1230 


1231 




1251 


1252 


1259 


1273 




1295 


1297 


1298 


1301 




1321 
1375 


1322 


1324 


1325 




1377 


1378 


1380 



4788 


4809 


4854 


4871 


4939 


4%i 












992 


1059 


1072 


1107 


1114 


lUb 


1156 


ii;i 


UBl 


1368 




1275 


1290 


1300 


1314 


1338 


1340 


1350 




1373 


1398 


1«50 


1471 


148b 


149b 


1510 


1534 


153b 


I54t 






1§84 


1644 


1646 


lbb2 


lb77 


lb87 


1701 


17(?5 


1727 


1737 


1739 


1760 


1825 


1835 


1837 


1858 


1873 


1883 


1897 


1921 


1923 


1929 


1931 


1996 


1997 


2007 


2022 


2032 


20b5 


2066 


2076 


2091 


2101 


2120 


2213 


2231 


2239 


2248 


22b8 


2283 


2293 


2307 


2336 


2338 


23% 


2411 


2412 


2441 


245b 


2483 


2500 


2586 


2660 


2723 


2849 


2850 


2980 


2993 


2998 


3005 


3020 


3C24 


3037 


3042 


3049 


3159 


3174 


3284 


3299 


3309 


3375 


3390 


3400 


3423 


3438 


3448 


3503 


3518 


3658 


3673 


3b83 


370b 


3721 


3731 


3814 


3829 


3839 


3861 


3876 


4158 


4173 


4183 


4217 


4230 


4235 


4242 


4267 


4284 


4327 


4340 


4397 


4398 


440b 


4538 


4b52 


478b 


4846 


4849 


4943 


6590 


6591 



970 


986 


993 


999 


1009 


1013 


1022 


1032 


1036 


1045 


1211 


1441 


1451 


1461 


1539 


1549 


1559 


1637 


1647 


1652 


1730 


1740 


1932 


1942 


1995 


2050 


2063 


2119 


2146 


2151 


2167 


2202 


2219 


2506 


2517 


2520 


2522 


2529 


2552 


2555 


2558 


2566 


2569 


2572 


2671 


2678 


2703 


2709 


2715 


2718 


2845 


2852 


2869 


2953 


2962 


3265 


3327 


3420 


3467 


3%8 


3547 


3594 


3595 


3624 


3703 


3750 


3906 


4014 


4030 


4081 


4141 


4203 


4218 


4251 


4328 


4361 


4421 


4615 


4645 


4658 


4867 








4729 


4733 






4121 


4123 


4418 


4445 


4699 


4701 


4708 






2956 






















4390 


4462 


4546 



















2928 


3086 


3117 


3133 


3356 


3484 


3617 


3933 


3941 


4053 


4202 


4485 


4523 


4614 


4617 


4689 


4938 


4%0 








2E27 


2368 


2477 


2525 


2527 


2546 


2674 


2676 


2699 


28r7 


2822 


3087 


3262 


3464 


3591 


3630 


3747 


3786 


3902 


4C:0 


4087 


4147 


4429 


4450 


4455 


4458 


4486 


4603 


%57 


4800 


4808 


4853 


4944 



326 
2959 
1153 
2476 
3156 
4721 
876 
897 
1008 
1109 
1161 
1188 
1233 
1276 
1302 
1328 
1381 



2342 2385 

2960 2%3 

1223 1272 

2531 2535 

3351 3478 



2492 2497 

3021 3920 

1370 1468 

2539 2589 

3609 3763 



2540 2610 

4206 4305 

1566 1659 

2625 2680 

3927 3940 



2629 2653 

4490 4493 

1757 1855 

2684 2726 

4071 4254 



2657 2693 
4%4 

1950 2004 

2764 2802 

4369 4395 



877 
898 
1031 
1117 
1163 
1189 
1234 
1277 
1304 
1329 
1383 



878 
899 
1056 
1118 
1164 
1191 
1236 
1279 
1305 
1330 
1384 



879 
902 
1057 
1120 

1192 
1237 
1280 
1X7 
1334 
1389 



880 
903 
1060 
1121 
1167 
1195 
1242 
1282 
1308 
1335 
1390 



881 
905 
1061 
1123 
1172 
1196 
1243 
1283 
1310 
1339 
1392 



882 
906 
1063 
1124 
1173 
1197 
1245 
1285 
1311 
1351 
1393 



884 
907 
1064 
1125 
1175 
12C1 
1246 
1286 
1315 
1356 
1395 



885 
925 
1066 
1126 
1176 
1202 
1248 
1291 
1316 
1358 
13% 



886 
926 
1067 
1136 
1178 
1216 
1249 
1292 
1318 
1371 
1399 



887 
936 
I06t? 
1137 
1179 
1224 
1250 
1294 
1319 
1374 
1400 
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,H02 
427 
481 
507 
§47 
589 
&15 
bbb 
692 
717 
1771 
1800 
1841 
1880 
1S05 
1%7 
1982 
2024 
2048 
2087 
2115 
225b 
2291 
2317 
2415 
2448 
2470 
2662 
2877 
2g8b 
3007 
3034 
3057 
3170 
31<38 
324b 
32S2 
3319 
3397 
3428 
3455 
3519 
3548 
357b 
3bb2 
3b88 
3722 
374b 
3834 
38b5 
38S1 
3S7q 
4007 
41b8 
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LCI 



S£Q 0218 



1403 

i^H 

1511 

1552 

1591 

Iblb 

lbb7 

lb94 

1721 

177b 

1801 

1843 

1881 

1907 

1958 

1983 

202b 

2051 

2092 

211b 

22bb 

2294 

2318 

241b 

2449 

2471 

2bbb 

2881 

2987 

3008 

3035 

3059 

3175 

3221 

3249 

3294 

3320 

3398 

3430 

345b 

3520 

3551 

3577 

3bb3 

3b90 

3723 

3784 

383b 

38bb 

3893 

3984 

4008 

41b9 



1405 

rs 

1512 

1554 

1592 

lbl8 

lbb9 

lb95 

1722 

1777 

1803 

185b 

1884 

1908 

19b0 

1988 

2027 

2052 

2093 

2117 

22b9 

2295 

2321 

2417 

2451 

2480 

26b8 

2885 

2988 

3009 

303b 

30bO 

317b 

3224 

3250 

3295 

3373 

3401 

3431 

3458 

3522 

3552 

3579 

3bb5 

3b91 

3725 

3785 

3837 

3888 

3894 

3985 

4009 

4174 



140b 

liM 
1514 
I5b7 
1595 
lbl9 
lb70 
lb97 
172b 
1779 
1804 
1859 
1885 
1911 
1%1 
1989 
2029 
2053 
2095 
2121 
2270 
2297 
2324 
2419 
2452 
2503 
2b73 
2889 
2989 
3012 
3038 
30b3 
3178 
3225 
3252 
3300 
3376 
3402 
3433 
3459 
3523 
3554 
3580 
3&bb 
3893 
3728 
3812 
3840 
3889 
38% 
3987 
4028 
4175 



1408 
1437 
1490 
1515 
1570 
1598 
1822 
lb72 
lb98 
1738 
1780 
180b 
18b0 
1887 
1912 
19b3 
1998 
2030 
2058 
20% 
2148 
2272 
2298 
232b 
2420 
2457 
2508 
2720 
2893 
2990 
3013 
3039 
3084 
3179 
3227 
3253 
3301 
3377 
3404 
3434 
3462 
3525 
3555 
3582 
3888 
3894 
3728 
3815 
3841 
3871 
3897 
3988 
4085 
4177 



1409 
1443 
1491 
1517 
1571 
15% 
1823 
1673 
1702 
1743 
1782 
1807 
1862 
1888 
1913 
1%4 
2005 
2033 
2059 
20% 
2153 
2273 
2300 
2330 
2421 
2458 
2511 
2756 
2902 
2991 
3015 
3040 
3084 
3181 
3228 
3255 
3303 
3379 
3405 
3439 
3463 
3526 
3557 
3583 
3669 
3897 
3729 
3816 
3843 
3872 
3900 
39% 
4088 
4178 



1413 
1454 
1493 
1518 
1573 
1599 
1824 
1878 
1703 
1745 
1783 
1809 
1863 
1890 
1917 
1%9 
2008 
2034 
2087 
2099 
2184 
2275 
2301 
2331 
2425 
2%0 
2515 
27% 
2903 
2992 
3018 
3041 
3085 
3182 
3230 
3258 
3304 
3380 
3H07 
3440 
3501 
3529 
3558 
3585 
3874 
3704 
3732 
3818 
3844 
3877 
3901 
3991 
4145 
4180 



1414 
1456 
1494 

f5 

1601 
1628 
1679 
1705 
1758 
1786 
1810 
1885 
1891 
1918 
1970 
2009 
2036 
2074 
2102 
2170 
2278 
2303 
2337 
2428 
2%1 
2524 
2800 
2908 
2994 
3023 
3043 
3157 
3185 
3231 
3258 
3308 
3382 
3408 
3442 
3504 
3530 
3580 
3586 
3675 
3707 
3733 
3819 
3648 
3878 
3%5 
3994 
4148 
4181 



141b 
1469 
1497 
1521 
1578 
1802 
1829 
1881 
1706 
1761 
1787 
1813 
1868 
1893 
1922 
1972 
2011 
2037 
2077 
2103 
2181 
2278 
2304 
2347 
2432 
2%3 
2550 
2804 
2%7 
2995 
3027 
3045 
3180 
3188 
3233 
3259 
3307 
3383 
3410 
3443 
3505 
3532 
3561 
3589 
3677 
3708 
3735 
3821 
3847 
3880 
3%9 
3995 
4158 
4184 



1417 
1472 
1498 
1524 
1577 
1604 
1633 
1882 
1708 
1762 
1789 
1814 
1868 
1894 
1930 
1973 
2012 
2039 
2078 
2105 
21% 
2279 
2308 
2353 
2433 
2464 
2564 
2805 
2914 
29% 
3028 
3048 
3181 
3188 
3234 
3282 
3310 
3385 
3411 
3445 
3507 
3533 
3586 
3590 
3678 
3710 
3738 
3822 
3849 
3881 
3970 
3997 
4159 
4185 



141=3 
1473 
1500 
1525 
157S 
IbOS 
1645 
1684 
1709 
1764 
1790 
1815 
1869 
1898 
1935 
1975 
2014 
2040 
2080 
2106 
2204 
2284 
2309 
2383 
2439 
2%5 
2583 
2808 
2945 
2997 
3029 
3050 
3163 
3189 
3239 
3285 
3311 
3388 
3414 
3446 
3508 
3535 
3567 
3628 
3680 
3711 
3738 
3824 
3850 
3883 
3972 
3998 
4180 
4187 



1420 
1475 
1501 
1526 
1580 
1609 
1850 
1885 
1711 
1765 
1792 
1819 
1874 
1899 
1937 
1976 
2015 
2042 
2081 
2108 
2216 
2285 
2311 
2384 
2442 
2488 
2593 
2828 
2979 
2999 
3030 
3051 
3164 
3191 
3240 
3286 
3313 
3391 
3421 
3449 
3510 
3536 
3569 
3629 
3881 
3713 
3739 
3825 
3853 
3884 
3973 
4000 
4162 
4188 



1422 
1476 
1503 



1610 
1680 
1888 
1712 
1767 
1793 
1820 
1875 
1%1 
1951 
1977 
2017 
2043 
2083 
2109 
2222 
2287 
2312 
2388 
2443 
2%7 
25% 
2833 
2%3 
3001 
3031 
3052 
3168 
3192 
3242 
32% 
3314 
3392 
3424 
3450 
3511 
3538 
3570 
3b5b 
3884 
3714 
3741 
3830 
3859 
3887 
3975 
4001 
4163 
4190 



1423 
1479 
1504 
1531 
15% 
1612 
1883 
1889 
1715 
1768 
17% 
1824 
1877 
1902 
1%4 
1978 
2018 
2046 
2084 
2111 
2233 
22% 
2314 
2387 
2445 
2468 
2597 
2840 
2%4 
3004 
3032 
3053 
3167 
3194 
3243 
3289 
3316 
3394 
3425 
3452 
3513 
3539 
3572 
2659 
38% 
3716 
3742 
3831 
3%2 
3%8 
3976 
4003 
4185 
4191 



1426 
1479 
1506 
1535 
15% 
1613 
1884 
1891 
1716 
1770 
17% 
1838 
1878 
1904 
1%5 
1%1 
2023 
2047 
20% 
2112 
2250 
22% 
2315 
2378 
2448 
2489 
2602 
2841 
2%5 
3006 
3033 
3056 
3169 
3195 
3245 
3291 
3317 
33% 
3427 
3453 
3514 
3542 
3573 
3860 
3887 
3717 
3745 
3833 
3%3 
38% 
3978 
4004 
4166 
4193 



MOl 
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4194 
4233 
4%^ 


4197 
4234 
4271 


4216 


4220 


4221 


4222 


4223 


4224 




4§^ 


4274 


4241 
4275 


4243 
4277 


4244 
4278 


4285 




4298 
4343 


4303 
4344 


4346 


4348 


4331 
4351 


4353 


4354 


4355 




4376 


4385 


4407 


4408 


4409 


4424 


4459 


4472 




4563 


4567 


4591 


4592 


4593 


4594 


4595 




4660 


4661 


4663 


4664 


4665 


4691 


4692 


4696 




4810 
4876 


4877 


4878 


4813 


4814 


4836 


4837 


4838 




4879 


4880 


4882 


4883 


4900 




4933 


4934 


4935 


4936 


4937 


4942 


4946 


4947 




6585 


6586 


6587 


6588 


6589 


6593 


6594 


4118 


M0V8 


2165 


2182 


2217 


2234 


2728 


2733 


4115 


4774 


4775 


4776 


4780 


4783 


4784 


4803 


4845 


NEC 


2200 


2252 


4781 


4844 










NOP 


2056 


2897 


2898 


2899 










RESET 


946 


2887 


2895 












ROL 


4787 


4789 


4790 


4791 


4793 








ROLB 


4379 


4381 


4382 


4383 


4384 








ROR 


4378 


4386 














RORB 


4380 












1086 


1122 


RTI 


399 


8B6 


927 


938 


1065 


1070 


1203 


1232 


1238 


1247 


1281 


1287 


1296 


1X6 




1404 


1410 


1418 


1424 


1434 


1477 


1463 


1492 




1590 


1600 


1606 


1614 


1620 


1630 


1668 


1674 




1772 


1781 


1791 


1797 


1805 


1811 


1821 


1864 




1959 


1965 


1974 


1979 


1990 


2013 


2019 


2028 




2107 


2113 


2274 


2280 


2289 


2299 


2305 


2313 




2808 


2915 


29% 


3040 


3165 


3171 


31BQ 


3190 




3290 


3296 


3305 


3315 


3321 


3381 


3387 


3396 




3509 


3515 


3524 


3534 


3540 


3556 


3562 


3571 




3712 


3718 


3727 


3737 


3743 


3820 


3826 


3835 




3974 


3980 


3989 


3999 


4005 


4164 


4170 


4179 




4343 


4619 


4666 


4698 


4815 


4884 


4959 


6595 


RTS 


2817 


2837 


2846 


2854 


4514 


4520 


4565 


4737 


RTT 


890 


891 


3000 


3001 


3044 


3045 


4237 


4238 


sue 


2504 


2505 


2560 


2571 


2577 


2663 


2688 


2689 


TRfiP 


1062 


1119 


1159 


1174 


1184 


1229 


1244 


1278 




1474 


1489 


1499 


1513 


1572 


1587 


1597 


1611 




1802 


1861 


1876 


1886 


1900 


1956 


1971 


2010 




2296 


2310 


2444 


2459 


2904 


3162 


3177 


3187 




3393 
3r?4 
4287 


34J3 


3426 


3441 


3451 


3506 


3521 


3531 




3734 
'.908 


3817 


3832 


3842 


3864 


3879 


3889 




4918 


4919 


4920 


4921 




1041 


TST 


900 


910 


922 


951 


955 


959 


1018 




1537 


1550 


1635 


1648 


1728 


1741 


1826 


1839 




2532 


2536 


2543 


2545 


2547 


2561 


2590 


2607 




3010 


3054 


3092 


3122 


3143 


3213 


3274 


3336 




3958 


4024 


4045 


4094 


4102 


4247 


4357 


4414 




4612 


4642 


4655 


4695 


4703 


4724 


4798 


4856 


TSTB 


1074 


1088 


1129 


1140 


1198 


1208 


1253 


1331 




1718 


1734 


1816 


1832 


1914 


1926 


2122 


2327 




3209 


3266 


3631 


3787 


4088 


4113 


4116 


4149 




4872 





























SEQ 


4225 


4226 


4227 


4228 


4229 


4231 


4232 


4246 


4249 




4252 








4286 


4288 


4589 


4591 




4»4 


4595 






4S0 


4@ 


4S 


4^1 




4j3b 


4^ 


MJbU 


tJbc 


^JbJ 






4478 


4481 


4510 


4537 


4542 


4551 


4556 


45% 


4599 


4604 


4640 


%41 


%43 


%% 


4710 


4769 


4777 


4778 


4779 


4785 


47S2 


4839 


4840 


4841 


4642 


4947 


4650 


4870 


4901 


4905 


4928 


4929 


4930 


4931 


4932 


494B 


11 Qua 
4'rt') 


uocn 








uocc 
*rjbb 


4466 


4606 


4693 


4720 


4728 


4770 


4771 


4848 


4862 


4865 


4874 


4903 






1127 


1138 


1162 


1168 


1177 


1187 


1193 


1312 


1320 


1326 


1336 


1379 


1385 


1394 


1502 


1508 


1516 


1522 


1532 


1575 


1581 


1683 


1693 


1699 


1707 


1713 


1723 


1766 


1870 


1879 


1889 


18% 


1903 


1909 


1919 


cUJb 


cirri 






CUDC 






2319 


2332 


2427 


2434 


2447 


2453 


2462 


31% 


3207 


3229 


3235 


3244 


3254 


3260 


3406 


3412 


3429 


3435 




3454 


3%0 


3581 


3587 


3664 


3670 


3679 


3689 


36% 


3845 


3851 


3867 


3873 


3882 


3892 


38% 


4189 


4195 


4233 


4273 


4279 


4290 


42% 


4906 


6597 












4347 


4348 














ofnc 
C'Ub 




371 U 
C/ i*! 


colb 


^olo 




1293 


1303 


1317 


1376 


1391 


1401 


1415 


1665 


1680 


1690 


1704 


1763 


1778 


1788 


2025 


2035 


2079 


2094 


2104 


2271 


2286 


3226 


3241 


3251 


3287 


3302 


3312 


3378 


3553 


3568 


3578 


3661 


3676 


3686 


3709 


3971 


3986 




4161 


4176 


4186 


4270 


1091 


1144 


1212 


1341 


1354 


1439 


1452 


1933 


2126 


2184 


2236 


2422 


24% 


2512 


2658 


26% 


2738 


2820 


2868 


2905 


2933 


3361 


3489 


3637 


3645 


3793 


3801 


3918 


4416 


4443 


4453 


4463 


4476 


4483 


4569 


4866 


4902 








1625 




1347 


1429 


1445 


1527 


1543 


1641 


2343 


2369 


2487 


2681 


2685 


26% 


3088 


4412 


4470 


4508 


4649 


4687 


4726 


4858 



0219 
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NOl 



SEQ 0220 



gLKU 
YTE 



.ENABL 

.ENC 
.ENOC 



385 

SM24 

m 

5914 
E>061 
6227 
&407 
488^ 
340 
1748 
4469 
5071 
5086 
5101 
5116 
5131 
5234 
5249 
52^:4 

52 V g 
52 "4 
530S 
3 



557q 
5807 
5S27 
6070 
6238 
6411 

341 
1845 
4474 
5072 
5087 
5102 
5117 
5132 
5235 
5250 
5265 
5280 
5295 
5310 



5314 

P?? 

5%4 
6275 
2S21 
5437 
5588 
5812 
5938 
6087 
6257 
6427 



5316 

13 
5994 
6289 
4573 
5442 
5593 
5816 
5950 
6098 
6270 
6439 



5326 



5331 



5315 
5447 
5599 
5822 
5960 
6113 
6284 
6453 



5337 

M 



5317 
5454 
5605 
5827 
5971 
6124 
6296 
6458 



5319 
5475 
5650 
5832 
5977 
6135 
6311 
6469 



346 347 362 

1846 1939 1940 

4475 4499 4500 

5073 5074 5075 

5088 5089 5090 

5103 5104 5105 

5118 5119 5120 

5133 5134 5135 

5236 5237 5238 

5251 5252 5253 

5266 5267 5268 

5281 5282 5283 

5296 5297 5298 

5311 5312 



363 364 

2599 2600 

4816 4817 

5076 5077 

5091 5092 

5106 5107 

5121 5122 

5136 5137 

5239 5240 

5254 5255 

5269 5270 

5284 5285 

5299 5300 



5344 5348 5363 5%1 

1^ 1^ ^ 

m l!^ 

5355 5371 5380 

5490 5513 5517 

5684 5697 5717 

5837 5842 5847 

5985 6002 6012 

6145 6156 6172 

6325 6338 6345 

6476 6484 6492 

365 1360 1361 1458 

2604 cSOS 2730 2731 

4818 4819 5065 5066 

5078 5079 5080 5081 

5093 . 509'' 5095 50% 

5108 31GS 5110 5111 

5123 5124 5125 5126 

5138 5139 5140 5141 

5241 5242 5243 5244 

5266 5257 5258 5259 

5271 5272 5273 5274 

5286 5287 5288 5289 

5301 5302 5303 5304 



5469 
>4c 



5481 



5492 

i7 



5385 5390 

5523 5542 

5730 5747 

5352 5870 

6024 6033 

6178 6187 

6356 6363 

6512 6533 



1459 
2735 
5067 
5082 
5097 
5112 
5127 
5142 
5245 
5260 
5275 
5290 
5305 



5398 
5548 
5758 
5883 

6038 
6195 
6370 
6551 



5407 
5556 
5772 
5895 
6046 
6205 
6380 



1556 1557 

2736 2924 

5068 5069 

5083 5084 

5098 5099 

5113 5114 

5128 5129 

5143 5144 

5246 5247 

5261 5262 

5276 5277 

a291 5292 

5306 5307 



5499 

1^^ 

6215 

5416 
5558 
5781 
5900 
6055 
6222 
6389 



1747 
4468 
5070 
5085 
5100 
5115 
5130 
5233 
5248 
5263 
5278 
5293 
5308 



.EOUIV 



15 


140 


158 


173 


259 


273 


2% 


298 


304 


306 


328 


331 


338 


340 


366 


376 


384 


385 


386 


390 


411 


873 


874 


876 


878 


880 


882 


883 


884 


896 


897 


907 


942 


943 


944 


945 


990 


981 


982 


983 


1005 


1006 


1007 


1008 


1028 


1329 


1030 


1031 


1051 


1052 


1053 


1054 


1101 


1102 


1103 


1104 


1150 


1151 


1152 


1153 


1220 


1221 


1222 


1223 


1269 


1270 


1271 


1272 


1346 


1362 


1367 


1368 


1369 


1370 


1444 


1460 


1465 


1466 


1467 


1468 


1542 


1558 


1563 


1564 


1565 


1566 


1640 


1651 


1656 


1657 


1658 


1659 


1733 


1749 


1754 


1755 


1756 


1757 


1831 


1847 


1852 


1853 


1854 


1855 


1924 


1925 


1941 


1947 


1948 


1949 


195Q 


2001 


2002 


2003 


2004 


2070 


2071 


2072 


2073 


2158 


2.59 


2160 


2161 


2176 


2177 


2178 


2179 


2193 


2194 


2195 


2196 


2210 


2211 


2212 


2213 


2228 


2229 


2230 


2231 


2245 


22% 


2247 


2248 


2262 


2263 


2264 


2265 


23S9 


2360 


2361 


2362 


2391 


2397 


2858 


2861 


2862 


2863 


2864 


2866 


2870 


2876 


2879 


2880 


eacTT 


2892 


2919 


2920 


2921 


2924 


2925 


2983 


2984 


2986 


2988 


2990 


2992 


2993 


2994 


3006 


3007 


3017 


3027 


3028 


3030 


3032 


3034 


3036 


3037 


3038 


3050 


3051 


3061 


3070 


X71 


X72 


3073 


3106 


3107 


3108 


3109 


3153 


3154 


3346 


3347 


3348 


3349 


3474 


3475 


3476 


3477 


3601 


3602 


3603 


3604 


3757 


3758 


3759 


3760 


3924 


3925 


3926 


3927 


4065 


4066 


4067 


4068 


4220 


4221 


4223 


4225 


4227 


4229 


4230 


4231 


4243 


4244 


4254 


4330 


4331 


4333 


4335 


4337 


4339 


4340 


4341 


4353 


4354 


4364 


4528 


4546 


4575 


4577 


4583 


4597 


%04 


4609 


4610 


4611 


4612 


4618 


4619 


%20 


4622 


4628 


4631 


4635 


4637 


4648 


%49 


%51 


4653 


4657 


4662 


4663 


4664 


4667 


4668 


4670 


4693 


4744 


4823 


4892 


4901 


4904 


4917 


4918 


4919 


4920 


4921 


4922 


4924 


4936 


4946 


4956 


4958 


4959 


4963 


6582 


6584 


6600 


6601 


6602 


6603 


6604 


6605 


6611 


6613 


6615 


6617 








228 


229 


230 


173 


174 


176 


191 


192 


2^1 


222 


223 


224 


225 


226 


227 


249 


250 


251 


252 


253 


254 


255 


256 


257 


258 
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BD2 



SEQ G221 



IFEQ 
IFF 



IFNE 

IFT 

IFTF 

IIF 



.IRP 
.LIST 



, nfiCRO 



M57M 


5859 


11 


139 


37b 


38» 


,M 


941 


1054 


1100 


1370 


1%4 


18S5 


194b 


2179 


2192 


22fe5 


2358 


2880 


2884 


2994 


300b 


3071 


3073 


3b04 


375b 


4227 


4229 


43S3 


43b4 


4bl9 


4b20 


4bb7 


4bb8 


4923 


493b 


bbl3 


bbl4 


13Mb 


1444 


140 


158 


980 


981 


1054 


1101 


1271 


1272 


lb57 


lb58 


2001 


2002 


2179 


2193 


2247 


2248 


2920 


2983 


3348 


3349 


3925 


392b 


4bl8 


4bl9 


b582 


b584 


1341 


1357 


4blO 


4b53 


4b09 


4b51 


10 


15 


2871 


2882 


3038 


30'iO 


4353 


4254 


4b52 


4bb4 


328 


390 


1753 


1851 


3105 


3152 


2 


138 


37b 


377 


1004 


1008 


1370 


14b4 


20b9 


2073 


22b5 


2358 


3154 


3345 


4309 


4354 


bb04 


bbl2 


IbO 


Ibl 



b558 
157 
385 
943 
1102 
14bb 
1948 
2194 
23b0 
2885 
3017 
3105 
3758 
4230 
4527 
4b21 
4bb9 
49% 
bblS 
1542 
171 
982 
1102 
13b7 
lb59 
2003 
2194 
22b2 
3027 
3474 
3927 
4b20 
bbOO 
1439 



171 
389 
945 
1104 
14b8 
1950 
219b 
23b2 
2901 
3023 
3107 
37b0 
4231 
4545 
4b27 
4b93 
4954 
bblb 
lb40 
298 
983 
1103 
13b8 
1754 
2004 
2195 
2263 
3070 
3475 
40b5 
4b22 
bb02 
1455 



231 
390 



259 
8b9 



979 981 
1149 1151 



15b2 
2000 
2209 
2389 
2919 
3027 
3109 
3923 
4243 
45bl 
4b31 
4743 
495b 



15b4 
2002 
2211 
2395 
2920 
3028 
3152 
3925 
4254 
457b 
4b35 
4822 
4958 



293 
873 
983 
1153 
ISbb 
2004 
2213 
2857 
2921 
3030 
3154 
3927 

45 
4b47 
4891 
49b3 



297 
874 
1004 
1219 
lb55 
20b9 
2227 
28bl 
2979 
3032 
3345 
40b4 

:!i 

4b49 
4900 
b581 



1733 1831 

304 331 

1005 100b 

1104 1150 

13b9 1370 

1755 175b 

2070 2071 

219b 2210 

2264 22b5 

3071 3072 

3M7b 3477 

40bb 40b7 

4b47 4b49 

bb04 bbl3 

1537 1553 



1924 

337 339 

1007 1008 

1151 1152 

14b5 l%b 

1757 1852 

2072 2073 

2211 2212 

2359 23b0 

3073 310b 

3801 3602 

40b8 4220 

4b51 4bb7 

bblS bbl7 

lb35 IbSl 



302 
B7b 



lb57 
2071 
2229 
28b2 
2983 
3034 
3347 
4066 

4650 
4904 
6583 



366 
1028 
1153 
1467 
1853 
2158 
2213 
2361 
3107 
3603 
4330 
4670 



304 
878 

ib= 

1659 
2073 
2231 
2663 
2984 
3036 
3349 
4068 

3Sf 

4651 
4908 
6599 



390 
1029 
1220 
1468 
1854 
2159 
2228 
2362 
3108 
3604 
4528 
4744 



328 
^880 

1753 
2157 
2244 
2865 
2986 
3037 
3473 
4216 

4631 
%53 
4918 
6601 



873 
1030 
1221 
1563 
1855 
2160 
2229 
2858 
3109 
3757 
4546 
4823 



330 
882 

1755 
2159 
22% 
2866 
2988 
3038 
3475 
4220 
4337 
4610 
4655 
4919 
6603 



942 
1031 
1222 
1564 
1947 
2161 
22X 
2865 
3153 
3758 
4575 
4892 



1728 1744 



1826 1842 



337 
883 

\m 

1757 
2161 
2248 
2868 
2990 
3050 
3477 
4221 
4339 
%12 
%63 
4920 
6605 



943 
1051 
1223 
1565 
1948 
2176 
2231 
2868 
3154 
3759 
4577 
4901 

1924 



339 

1851 
2175 
22bl 
2875 
2992 
3061 
3600 
4223 
4340 
%15 
4664 
4921 
6611 



36b 
89b 

i< 

1853 
2177 
2263 
2878 
2993 
3069 
3602 
4225 
4341 
%18 
4666 
4922 
6612 



944 945 

1052 1053 

1269 1270 

1566 1656 

1949 1950 

2177 2178 

2245 22% 

2876 2879 

33% 3347 

3760 3924 

4582 4600 

4924 4954 

1936 



20 


21 


290 


389 


874 


876 


882 


883 


884 


8% 


897 


2862 


2870 


2920 


2925 


2984 


2986 


2992 


2993 


299H 


3006 


3007 


3028 


3030 


3036 


3037 


3051 


4221 


4223 


4229 


4230 


4231 


4243 


42H4 


4331 


4333 


4339 


4340 


4341 


4543 


4568 


%83 


4584 


4585 


4586 


4587 


%15 


4620 


4628 


4629 


4630 


%31 


4667 


4668 


4742 


4917 


4918 


4919 


4920 


4921 












941 


979 


1004 


1027 


1050 


1100 


1149 


1219 


1268 


1366 


1%4 


1562 


1655 


1946 


2000 


2069 


2157 


2175 


2192 


2209 


2227 


2244 


2261 


2358 


2868 


3069 


3345 


3473 


3600 


3756 


3923 


4064 


4591 


4836 


4876 


4930 


49% 






159 


273 


290 


328 


366 


368 


369 


370 


371 


372 


373 


374 


375 


378 


379 


380 


381 


382 


383 




865 


897 


941 


945 


979 


983 


1027 


1031 


1050 


1054 


1100 


1104 


1149 


1153 


1219 


1223 


1268 


1272 


1366 


1468 


1562 


1566 


1655 


1659 


1753 


1757 


1851 


1855 


19% 


1950 


2000 


2004 


2157 


2161 


2175 


2179 


2192 


2196 


2209 


2213 


2227 


2231 


2244 


2248 


2261 


2362 


2388 


2398 


2402 


2870 


2976 


3007 


3051 


3069 


3073 


3105 


3109 


3152 


3349 


3473 


3477 


3600 


3604 


3756 


3760 


3923 


3927 


4064 


4068 


4208 


4244 


4502 


4615 


4631 


4908 


4917 


4918 


4919 


4920 


4921 


4922 


4975 


6600 


6602 


bbl4 


6616 
























lb2 


163 


164 


165 


166 


167 


329 


330 


884 


J 268 


2856 


2994 


3038 
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TABLE 








4231 


4341 


Mbcb 


4908 






.fICflLL 




5 


b 


273 


897 


3007 


. NLIST 


1 


138 


IbT 


273 


290 


328 


37b 


377 




379 


380 


381 




lOOH 


1008 


1027 


1031 


1050 


1054 




1370 




14bO 


15&2 


1566 


1655 




cObS 


2073 


Cibf 


2ie>i 


2175 


2179 






2358 


c3bc 


2388 


2398 


2402 




315M 


3345 




3473 


3477 


3600 






M35t 


4bUc 


4615 


4631 


4908 




bbUH 


C-L. 1 ^ 

bbic 


bblT 


bblb 






. PHGt 




33u 


Jo^ 








□ CQT 




Jbo 




2389 


2395 


299 


-SB TIL 


LIT 

43 


138 


1 CQ 


284 


294 








ICOO 


136& 


1464 


1562 




2203 


2227 


2244 


22bl 


2358 


2402 




40b4 


4208 


4309 


4502 


4529 


4578 


.TITLE 


10 












.UORD 


290 


291 


292 


305 


309 


310 




352 


353 


354 


355 


356 


357 




376 


377 


378 


379 


380 


381 




4957 


4967 











PAGE 


150 






3051 


4244 


4354 




366 


368 


369 


370 


382 


383 


384 


865 


1100 


1104 


1149 


1153 


1659 


1753 


ITS? 


1851 


2192 


2196 


2209 


2213 


2870 


2976 


3007 


3051 


3604 


3756 


3760 


3923 


4917 


4918 


4919 


4920 



332 


412 


865 


941 


1655 


1753 


1851 


1946 


2859 


2976 


3069 


3105 


4623 


4671 


4745 


4824 


339 


342 


343 


344 


366 


368 


369 


370 


382 


383 


2875 


2878 



5EQ 



371 


372 


373 


374 


375 


897 


941 


945 


979 


983 


1219 


1223 


1268 


1272 


1366 


1855 


1946 


1950 


2000 


2004 


2227 


2231 


2244 


2248 


2261 


3069 


3073 


3105 


3109 


3152 


3927 


4064 


4068 


4208 


4244 


4921 


4922 


4975 


6600 


6602 



979 


lOOH 


1027 


1050 


1100 


2000 


2069 


2157 


2175 


2192 


3345 


3473 


3600 


3756 


3923 


4893 


4909 


4925 


4975 




3"S 


348 


349 


350 


351 


371 


372 


373 


374 


375 


4554 


4559 


4736 


4820 


4955 



ERRORS DETECTED: 0 
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